home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 9 / The PC-SIG Library on CD ROM - Ninth Edition.iso / 901_1000 / DISK0961 / DISK0961.ZIP / MINI.BAS < prev    next >
BASIC Source File  |  1987-01-01  |  64KB  |  948 lines
  1. 5 GOSUB 6500
  2. 10 INPUT "TODAY'S DATE IS: (MM/DD/YY)";TODAY$:IF TODAY$="" THEN TODAY$=LEFT$(DATE$,2)+"/"+MID$(DATE$,4,2)+"/"+RIGHT$(DATE$,2)
  3. 15 PRINT "DATE:";TODAY$;:INPUT "  CORRECT (Y/N)";D$:IF D$="N" OR D$="n" OR D$="" THEN 10
  4. 20 DATE$=TODAY$
  5. 25 DIM PAID(75),UNIT(75),METHOD(75),DAY$(75),PB(75),SOURCE(75)
  6. 30 DIM TYPE(75),CHECKNO(75),PAIDTO$(75),DD$(75),AMOUNT(75)
  7. 35 CLS:FOR A=1 TO 5:BEEP:NEXT A:PRINT "* * *  REMOVE PROGRAM DISK FROM DRIVE A  * * *":PRINT "* * *  PLACE UNIT NAME/ADDRESS DISK IN DRIVE A * * * "
  8. 40 FOR A=1 TO 5 :PRINT:NEXT A: PRINT "STRIKE ANY KEY TO CONTINUE"
  9. 45 A$=INKEY$:IF A$="" THEN 45
  10. 47 OPEN "numunits" FOR INPUT AS #1: INPUT #1,NUM.UNITS:CLOSE #1
  11. 50 CLS:PRINT STRING$(79,"*"):PRINT "*-----T H E   M I N I - M I N D E R-------------------------------------------*":PRINT STRING$(79,"*")
  12. 55 PRINT "**";TAB(20);"1.  ADD NEW TENANT";TAB(78);"**": PRINT "**";TAB(20);"2.  EDIT CURRENT TENANT INFORMATION";TAB(78);"**"
  13. 60 PRINT "**";TAB(20);"3.  GO TO REPORTS MENU";TAB(78);"**":PRINT "**";TAB(20);"4.  ENTER RENTAL PAYMENTS/OTHER INCOME";TAB(78);"**":PRINT "**";TAB(20);"5.  GO TO BILLING MENU";TAB(78);"**":
  14. 65 PRINT "**";TAB(20);"6.  GO TO EXPENSE MENU";TAB(78);"**":PRINT "**";TAB(20);"7.  EDIT INCOME RECORDS";TAB(78);"**":PRINT "**";TAB(20);"8.  CHECKING ACCOUNT REVIEW";TAB(78);"**"
  15. 70 PRINT "**";TAB(20);"9.  EDIT DAILY REPORTS";TAB(78);"**":PRINT "**";TAB(20);"10.  CREATE FILES FOR NEXT CALENDAR YEAR";TAB(78);"**"
  16. 75 PRINT "**";TAB(20);"11.  DO LABELS";TAB(78);"**"
  17. 80 PRINT "**";TAB(20);"12.  END SESSION";TAB(78);"**"
  18. 85 PRINT STRING$(79,"*"):PRINT STRING$(79,"*")
  19. 90 PRINT :PRINT TAB(20);"YOUR CHOICE IS";: INPUT CHOICE: ON CHOICE GOSUB 195,250,1125,1565,1855,2450,4285,4170,4380,4515,105,100
  20. 95 CLOSE:TODAY$=DATE$:GOTO 47
  21. 100 END
  22. 105 INPUT "PLACE PROGRAM DISK IN DRIVE A AND STRIKE ENTER ";X
  23. 110 CHAIN "WHLABELS",ALL
  24. 115 RETURN
  25. 120 LSET U$=UNIT$:LSET S$=SIZE$:LSET R$=MKS$(RATE)
  26. 125 LSET T$=TERM$:LSET TN$=TENANT$:LSET SP$=SPOUSE$:LSET XN$=ONAME$:LSET A$=ADDR$:LSET A1$=ADDR1$:LSET CI$=CITY$:LSET ST$=STA$:LSET ZP$=ZIP$:LSET PH$=PHONE$
  27. 130 LSET EP$=EMPLOY$:LSET WP$=WRKPH$:LSET DL$=LICENSE$:LSET SPE$=SPOUSEMP$:LSET SWP$=SPWRKPH$:LSET DD$=DUE$:LSET CURBL$=MKS$(OWE):LSET LPD$=LAST$:LSET PL$=PADLOCK$:LSET CT$=CUT$
  28. 135 RETURN
  29. 140 UNIT$=U$:SIZE$=S$:RATE=CVS(R$):TERM$=T$:TENANT$=TN$:SPOUSE$=SP$:ONAME$=XN$:ADDR$=A$:ADDR1$=A1$:CITY$=CI$:STA$=ST$:ZIP$=ZP$:PHONE$=PH$
  30. 145 EMPLOY$=EP$:WRKPH$=WP$:LICENSE$=DL$:SPOUSEMP$=SPE$:SPWRKPH$=SWP$:DUE$=DD$:OWE=CVS(CURBL$):LAST$=LPD$:PADLOCK$=PL$:CUT$=CT$
  31. 150 RETURN
  32. 155 CLOSE #1:CLOSE #2:CLOSE #3
  33. 160 OPEN "R",#1,"UNITS",126
  34. 165 FIELD #1, 4 AS U$,5 AS S$,7 AS R$,8 AS T$,30 AS TN$,30 AS SP$,40 AS XN$,1 AS PL$,1 AS CT$
  35. 170 OPEN "R",#2,"UNITS1",110
  36. 175 FIELD #2,30 AS A$,30 AS A1$,20 AS CI$,2 AS ST$,10 AS ZP$,10 AS PH$,8 AS LPD$
  37. 180 OPEN "R",#3,"UNITS2",126
  38. 185 FIELD #3,30 AS EP$,10 AS WP$,30 AS DL$,30 AS SPE$,10 AS SWP$,8 AS DD$,8 AS CURBL$
  39. 190 RETURN
  40. 195 GOSUB 155
  41. 200 GOSUB 360
  42. 205 GOSUB 385
  43. 210 GOSUB 120
  44. 215 PUT #1,U
  45. 220 PUT #2,U
  46. 225 PUT #3,U
  47. 230 INPUT "DO ANOTHER (Y/N)";ASK$: IF LEFT$(ASK$,1)="Y" OR LEFT$(ASK$,1)="y" THEN 200
  48. 235 CLOSE : RETURN
  49. 240 NEXT U
  50. 245 RUN
  51. 250 GOSUB 155
  52. 255 INPUT "WHAT IS THE UNIT NUMBER YOU WISH TO EXAMINE";U
  53. 260 GET #1,U
  54. 265 GET #2,U
  55. 270 GET #3,U
  56. 275 GOSUB 140
  57. 280 GOSUB 385
  58. 285 GOSUB 120
  59. 290 PUT #1,U
  60. 295 PUT #2,U
  61. 300 PUT #3,U
  62. 305 INPUT "LOOK AT ANOTHER UNIT (Y/N)";ASK$:IF LEFT$(ASK$,1)="Y" OR LEFT$(ASK$,1)="y" THEN 255
  63. 310 CLOSE:RETURN
  64. 315 INPUT "PLACE BLANK FORMATTED DISK IN DRIVE A AND STRIKE ENTER";X
  65. 320 INPUT "ENTER NUMBER OF UNITS FOR THIS FILE:";U
  66. 322 OPEN "numunits" FOR OUTPUT AS #1:PRINT #1,U:CLOSE #1:GOSUB 155
  67. 325 FOR COUNT = 1 TO U
  68. 330 UNIT$=STR$(COUNT):LOCATE 25,1:PRINT "CREATING #:"; COUNT
  69. 335 GOSUB 120
  70. 340 PUT #1, COUNT:PUT #2, COUNT:PUT #3,COUNT
  71. 345 NEXT COUNT
  72. 350 PRINT "RECORDS CREATED FOR THIS FILE:";COUNT:INPUT "STRIKE ENTER";X
  73. 355 CLOSE:RETURN
  74. 360 CLS:INPUT "UNIT NO.";U:UNIT$=STR$(U):INPUT "UNIT SIZE:";SIZE$:INPUT "MONTHLY RENTAL:";RATE:INPUT "EXPECTED LENGTH OF RENTAL";TERM$:INPUT "TENANT'S NAME:";TENANT$: INPUT "SPOUSE'S NAME:";SPOUSE$
  75. 365 INPUT "STREET ADDRESS #1:";ADDR$:INPUT "STREET ADDRESS #2:";ADDR1$:INPUT "CITY:";CITY$: INPUT "STATE:";STA$:INPUT "ZIP CODE:";ZIP$
  76. 370 INPUT "PHONE NO.";PHONE$: INPUT "EMPLOYED BY:";EMPLOY$:INPUT "WORK PHONE:";WRKPH$:INPUT "DRIVER'S LICENSE #:";LICENSE$:INPUT "SPOUSE'S EMPLOYER:";SPOUSEMP$:INPUT "SPOUSE'S WORK PHONE:";SPWRKPH$
  77. 375 INPUT "DATE PAYMENT DUE";DUE$:INPUT "CURRENT BALANCE: $";OWE:INPUT "DATE LAST PAID:";LAST$:INPUT "IS UNIT PADLOCKED (Y/N)";PADLOCK$:INPUT "TENANT'S LOCK CUT: (Y/N)";CUT$
  78. 380 INPUT "NAME OF OTHER CONTACT, ETC";ONAME$:RETURN
  79. 385 CLS:PRINT "1. UNIT #";UNIT$;TAB(15);" 2. SIZE:";SIZE$;TAB(32);"3. AMOUNT OF RENT:";RATE;TAB(57);"4. EXP. TERM:";TERM$:PRINT STRING$(79,"=")
  80. 390 PRINT "5. TENANT:";TENANT$;TAB(42);"6.SPOUSE:";SPOUSE$:PRINT "7.ADR.1:";ADDR$;TAB(42);"8.ADR.2:";ADDR1$:PRINT "9. CITY:";CITY$;TAB(35);"10. STATE:";STA$;TAB(50);"11. ZIP CODE:";ZIP$
  81. 395 PRINT STRING$(79,"="):PRINT "12. HOME PHONE:";PHONE$:PRINT "13. EMPLOYED BY:";EMPLOY$;TAB(55);"14. WORK PHONE:";WRKPH$:PRINT "15. DRIVER'S LICENSE #:";LICENSE$:PRINT "16. SPOUSE'S EMPLOYER:";SPOUSEMP$:PRINT "17. SPOUSE'S WORK PHONE:";SPWRKPH$
  82. 400 PRINT STRING$(79,"=")
  83. 405 PRINT "18. DATE DUE:";DUE$;TAB(25);"19. AMOUNT DUE:$";OWE;TAB(50);"20. LAST PAID ON:";LAST$:PRINT "21. PADLOCKED:";PADLOCK$;"   22. LOCK CUT:";CUT$:PRINT "23. OTHER CONTACT:";ONAME$:PRINT STRING$(79,"="):PRINT "24. NO OTHER CHANGES"
  84. 410 PRINT STRING$(79,"=")
  85. 415 INPUT "KEY IN NUMBER OF ITEM TO CHANGE:";CHANGE
  86. 420 ON CHANGE GOTO 520,525,530,535,540,545,555,560,565,570,575,580,585,590,595,600,605,610,615,620,625,630,550,430
  87. 425 GOTO 385
  88. 430 RETURN
  89. 435 CLS:PRINT "UNIT #";UNIT$;TAB(15);" SIZE:";SIZE$;TAB(32);"AMOUNT OF RENT:";RATE;TAB(57);"EXP. TERM:";TERM$:PRINT STRING$(79,"=")
  90. 440 PRINT "TENANT:";TENANT$;TAB(42);"SPOUSE:";SPOUSE$:PRINT "ADR.1:";ADDR$;TAB(42);"ADR.2:";ADDR1$:PRINT "CITY:";CITY$;TAB(35);"STATE:";STA$;TAB(50);"ZIP CODE:";ZIP$
  91. 445 PRINT STRING$(79,"="):PRINT "HOME PHONE:";PHONE$:PRINT "EMPLOYED BY:";EMPLOY$;TAB(55);"WORK PHONE:";WRKPH$:PRINT "DRIVER'S LICENSE #:";LICENSE$:PRINT "SPOUSE'S EMPLOYER:";SPOUSEMP$:PRINT "SPOUSE'S WORK PHONE:";SPWRKPH$
  92. 450 PRINT STRING$(79,"=")
  93. 455 PRINT "DATE DUE:";DUE$;TAB(25);"AMOUNT DUE:$";OWE;TAB(50);"LAST PAID ON:";LAST$:PRINT "PADLOCKED:";PADLOCK$;"   LOCK CUT:";CUT$:PRINT "OTHER CONTACT:";ONAME$:PRINT STRING$(79,"=")
  94. 460 INPUT "STRIKE ENTER TO CONTINUE";XX
  95. 465 RETURN
  96. 470 INPUT "DATE OF PAYMENT IS:";DAY$(COUNT):GOTO 1595
  97. 475 INPUT "AMOUNT PAID IS:";PAID(COUNT):GOTO 1595
  98. 480 INPUT "PAYMENT SOURCE IS: (1-450)=RENT   999=SUPPORT SALES  998=INTEREST INCOME  997= PROPERTY SALES)";SOURCE(COUNT):GOTO 1595
  99. 485 LPRINT CC;TAB(10);DAY$(CC);TAB(30);PAID(CC);TAB(45);SOURCE(CC)
  100. 490 RETURN
  101. 520 INPUT "ENTER UNIT #:";U:UNIT$=STR$(U):GOTO 385
  102. 525 INPUT "ENTER UNIT SIZE:";SIZE$:GOTO 385
  103. 530 INPUT "ENTER NEW RATE:";RATE:GOTO 385
  104. 535  INPUT "ENTER NEW EXPECTED TERM:";TERM$: GOTO 385
  105. 540 INPUT "ENTER NEW NAME:";TENANT$:GOTO 385
  106. 545 INPUT "ENTER NEW SPOUSE:";SPOUSE$:GOTO 385
  107. 550 INPUT "RE-ENTER OTHER NAME:";ONAME$:GOTO 385
  108. 555 INPUT "ENTER NEW ADDRESS 1:";ADDR$:GOTO 385
  109. 560 INPUT "ENTER NEW ADDRESS 2:";ADDR1$:GOTO 385
  110. 565 INPUT "ENTER NEW CITY:";CITY$:GOTO 385
  111. 570 INPUT "ENTER NEW STATE:";STA$:GOTO 385
  112. 575 INPUT "ENTER NEW ZIP:";ZIP$:GOTO 385
  113. 580 INPUT "ENTER NEW PHONE:";PHONE$:GOTO 385
  114. 585 INPUT "ENTER NEW TENANT'S EMPLOYER:";EMPLOY$:GOTO 385]
  115. 590 INPUT "ENTER NEW WORK PHONE:";WRKPH$:GOTO 385
  116. 595 INPUT "ENTER TENANT'S DRIVER'S LICENSE:";LICENSE$:GOTO 385
  117. 600 INPUT "ENTER SPOUSE'S EMPLOYER:";SPOUSEMP$:GOTO 385
  118. 605 INPUT "ENTER SPOUSE'S WORK PHONE:";SPWRKPH$:GOTO 385
  119. 610 INPUT "ENTER DATE PAYMENT DUE:";DUE$:GOTO 385
  120. 615 INPUT "ENTER AMOUNT OWED:";OWE:GOTO 385
  121. 620 INPUT "ENTER DATE LAST PAID:";LAST$:GOTO 385
  122. 625 INPUT "IS UNIT PADLOCKED (Y=YES)";PADLOCK$:GOTO 385
  123. 630 INPUT "HAS TENANT'S LOCK BEEN CUT:";CUT$:GOTO 385
  124. 635 LPRINT "UNIT #";UNIT$;TAB(15);" SIZE:";SIZE$;TAB(32);"AMOUNT OF RENT:";RATE;TAB(57);"EXP. TERM";TERM$:LPRINT STRING$(79,"=")
  125. 640 LPRINT "TENANT:";TENANT$;TAB(45);"SPOUSE:";SPOUSE$:LPRINT "ADDRESS 1:";ADDR$;TAB(45);"ADDRESS 2:";ADDR1$:LPRINT "CITY:";CITY$;TAB(35);"STATE:";STA$;TAB(50);"ZIP CODE:";ZIP$
  126. 645 LPRINT STRING$(79,"="):LPRINT "HOME PHONE:";PHONE$:LPRINT "EMPLOYED BY:";EMPLOY$;TAB(55);"WORK PHONE:";WRKPH$:LPRINT "DRIVER'S LICENSE #:";LICENSE$:LPRINT "SPOUSE'S EMPLOYER:";SPOUSEMP$:LPRINT "SPOUSE'S WORK PHONE:";SPWRKPH$
  127. 650 LPRINT STRING$(79,"=")
  128. 655 LPRINT "DATE DUE:";DUE$;TAB(25);"AMOUNT DUE:$";OWE;TAB(50);"LAST PAID ON:";LAST$:LPRINT "PADLOCKED:";PADLOCK$;"   LOCK CUT";CUT$:LPRINT "OTHER CONTACT:";ONAME$:LPRINT STRING$(79,"=")
  129. 660 RETURN
  130. 665 D30$="12":D60$="11":D90$="10":RETURN
  131. 670 D30$="01":D60$="12":D90$="11":RETURN
  132. 675 D30$="02":D60$="01":D90$="12":RETURN
  133. 680 D30$="03":D60$="02":D90$="01":RETURN
  134. 685 D30$="04":D60$="03":D90$="02":RETURN
  135. 690 D30$="05":D60$="04":D90$="03":RETURN
  136. 695 D30$="06":D60$="05":D90$="04":RETURN
  137. 700 D30$="07":D60$="06":D90$="05":RETURN
  138. 705 D30$="08":D60$="07":D90$="06":RETURN
  139. 710 D30$="09":D60$="08":D90$="07":RETURN
  140. 715 D30$="10":D60$="09":D90$="08":RETURN
  141. 720 D30$="11":D60$="10":D90$="09":RETURN
  142. 725 PRINT TAB(34);"AGING ANALYSIS":PRINT TAB(36);TODAY$:PRINT :PRINT "UNIT";TAB(8);"SIZE";TAB(15);"TENANT";TAB(46);"OWED";TAB(65);"30+";TAB(70);"60+";TAB(75);"90+":IF LEFT$(HC$,1)="Y" OR LEFT$(HC$,1)="y" THEN 730 ELSE RETURN
  143. 730 LPRINT TAB(34);"AGING ANALYSIS":LPRINT TAB(36);TODAY$:LPRINT :LPRINT "UNIT";TAB(8);"SIZE";TAB(15);"TENANT";TAB(46);"OWED";TAB(65);"30+";TAB(70);"60+";TAB(75);"90+":LPRINT STRING$(79,"="):RETURN
  144. 735 CLS:INPUT "DO YOU WANT ADDRESSES LISTED";ADATA$:IF LEFT$(ADATA$,1)="Y" OR LEFT$(ADATA$,1)="y" THEN ADATA=1 ELSE ADATA=0
  145. 740 CLS:PRINT "UNIT #";TAB(10);"TENANT";TAB(45);"AMT OWED";TAB(55);"PDLCKED";TAB(65);"CUT":PRINT STRING$(79,"-")
  146. 745 LPRINT "UNIT LISTING PREPARED ON ";DATE$:LPRINT "UNIT #";TAB(10);"TENANT";TAB(45);"AMT OWED";TAB(55);"PDLCKED";TAB(65);"CUT":LPRINT STRING$(79,"-")
  147. 750 LC=2
  148. 755 GOSUB 160
  149. 760 FOR A=1 TO NUM.UNITS
  150. 765 GET #1,A:GET #2,A:GET #3,A:GOSUB 140
  151. 770 PRINT UNIT$;TAB(10);TENANT$;TAB(45);OWE;TAB(55);PADLOCK$;TAB(65);CUT$:IF ADATA=0 THEN PRINT STRING$(79,"-")
  152. 775 LPRINT UNIT$;TAB(10);TENANT$;TAB(45);OWE;TAB(55);PADLOCK$;TAB(65);CUT$:IF ADATA=0 THEN LPRINT STRING$(79,"-")
  153. 780 IF ADATA=1 THEN GOSUB 3420
  154. 785 LC=LC+2: IF LC=>58 THEN LPRINT CHR$(12):LC=0
  155. 790 NEXT A
  156. 795 CLOSE :RETURN
  157. 800 END
  158. 805 CLS:INPUT "ENTER MONTH NUMBER THESE EXPENSES REPRESENT (1-12)";MONT
  159. 810 ON MONT GOSUB 2890,2895,2900,2905,2910,2915,2920,2925,2930,2935,2940,2945
  160. 815 INPUT "HOW MANY TRANSACTIONS";TRANS
  161. 820 FOR A=1 TO TRANS
  162. 825 PRINT "SELECT PAYMENT TYPE:":PRINT TAB(10);"1=SALARIES";TAB(30);"2=UTILITIES";TAB(60);"3=PHONE":PRINT TAB(10);"4=PEST CONTROL";TAB(30);"5=TRAVEL";TAB(60);"6=ADVERTISING":PRINT TAB(10);"7=LEGAL & ACCTNG";TAB(30);"8=MISC.";TAB(60);"9=RET. CHECKS"
  163. 830 PRINT TAB(10);"10=ADVALOREM & GENERAL TAXES";TAB(30);"11=INTEREST EXPENSES";TAB(60);"12=DEPRECIATION":PRINT TAB(10);"13=DUES/SUBSCRIPTIONS";TAB(30);"14=POSTAGE";TAB(60);"15=INSURANCE":PRINT TAB(10);"16=MAINTENANCE/CLEANING";TAB(30);"17=REPAIRS";
  164. 835 PRINT TAB(60);"18=PAYROLL TAXES"
  165. 840 PRINT TAB(10);"19=EQUIPMENT";TAB(30);"20=EXIT THIS PROGRAM"
  166. 845 INPUT TYPE(A):IF TYPE(A)<1 THEN GOTO 825
  167. 850 IF TYPE(A)=20 THEN 890
  168. 855 INPUT "CHECK NUMBER:";CHECKNO(A): INPUT "PAID TO:";PAIDTO$(A):INPUT "DATE PAID: (ENTER=TODAY'S DATE)";DD$(A):IF DD$(A)="" THEN DD$(A)=TODAY$
  169. 860 INPUT "AMOUNT:";AMOUNT(A)
  170. 865 CLS:PRINT "1. TYPE";TYPE(A);TAB(15);"2. CHECK #:";CHECKNO(A);TAB(40);"3.PAID TO:";PAIDTO$(A):PRINT :PRINT "4. DATE:";DD$(A);TAB(20);"5. AMOUNT";USING "$####.##";AMOUNT(A)
  171. 870  PRINT "6. RECORD CORRECT"
  172. 875 INPUT "ENTER FIELD TO CORRECT";FFF:ON FFF GOTO 1030,1050,1055,1060,1065,885
  173. 880 GOTO 865
  174. 885 NEXT A
  175. 890 INPUT "STRIKE ENTER KEY";X
  176. 895 PAIDOUT=0:LPRINT "RECAP OF EXPENSES REPORTED ON ";TODAY$:LPRINT STRING$(79,"="):LPRINT "#";"  TYPE";TAB(10);"CHECK #";TAB(20);"PAID TO";TAB(55);"DATE";TAB(65);"AMOUNT":LPRINT STRING$(79,"-")
  177. 900 FOR B=1 TO TRANS
  178. 905 LPRINT B;" ";TYPE(B);TAB(10);CHECKNO(B);TAB(20);PAIDTO$(B);TAB(55);DD$(B);TAB(65);USING "$##,###.##";AMOUNT(B)
  179. 910 PAIDOUT=PAIDOUT+AMOUNT(B)
  180. 915 NEXT B
  181. 920 LPRINT STRING$(79,"-"):LPRINT "TOTAL TRANSACTIONS:";TRANS:LPRINT "TOTAL AMOUNT:";USING "$##,###.##";PAIDOUT:LPRINT :LPRINT :LPRINT
  182. 925 PAIDOUT=0:PRINT "RECAP OF EXPENSES REPORTED ON ";TODAY$:PRINT STRING$(79,"="):PRINT "#";"  TYPE";TAB(10);"CHECK #";TAB(20);"PAID TO";TAB(55);"DATE";TAB(65);"AMOUNT":PRINT STRING$(79,"-")
  183. 930 FOR B=1 TO TRANS
  184. 935 PRINT B;" ";TYPE(B);TAB(10);CHECKNO(B);TAB(20);PAIDTO$(B);TAB(55);DD$(B);TAB(65);USING "$##,###.##";AMOUNT(B)
  185. 940 PAIDOUT=PAIDOUT+AMOUNT(B)
  186. 945 NEXT B
  187. 950 PRINT STRING$(79,"-"):PRINT "TOTAL TRANSACTIONS:";TRANS:PRINT "TOTAL AMOUNT:";USING "$##,###.##";PAIDOUT
  188. 955 INPUT "ARE THERE CORRECTIONS (Y/N)";ASK$:IF LEFT$(ASK$,1)="Y" OR LEFT$(ASK$,1)="y" THEN 960 ELSE 970
  189. 960 INPUT "ENTER LINE NUMBER TO CHANGE.  STRIKE ENTER WHEN ALL CORRECT";CHANGE
  190. 965 IF CHANGE=0 THEN 970 ELSE 1070
  191. 970 INPUT "STRIKE ENTER KEY TO STORE TRANSACTIONS";X:OPEN FILE$ FOR APPEND AS #1
  192. 975 FOR B=1 TO TRANS
  193. 980 PRINT #1,TYPE(B):PRINT #1,CHECKNO(B):PRINT #1,PAIDTO$(B):PRINT #1,DD$(B):PRINT #1,AMOUNT(B)
  194. 985 PRINT TYPE(B):PRINT CHECKNO(B):PRINT PAIDTO$(B):PRINT DD$(B):PRINT AMOUNT(B)
  195. 990 NEXT B
  196. 995 CLOSE:OPEN "B:CHEK" FOR INPUT AS #1:INPUT #1,CHEK:CLOSE:PC=CHEK
  197. 1000 FOR BB=1 TO TRANS
  198. 1005 IF TYPE(BB)=1 OR TYPE(BB)=10 OR TYPE(BB)=12 OR TYPE(BB)=15 OR TYPE(BB)=18 THEN 1015
  199. 1010 CHEK=CHEK-AMOUNT(BB):PP=PP+AMOUNT(BB)
  200. 1015 NEXT BB
  201. 1020 OPEN "B:CHEK" FOR OUTPUT AS #2:PRINT #2,CHEK:CLOSE:PRINT "CHECKING ACCOUNT BALANCE WAS ";USING "$###,###.##";PC:PRINT "AFTER POSTING EXPENSES OF ";USING "$###,###.##";PP;:PRINT " NEW BALANCE IS ";USING "$###,###.##";CHEK
  202. 1025 PAIDOUT=0:PC=0:PP=0:CHEK=0:CLOSE:PRINT "TRANSACTIONS STORED":RETURN
  203. 1030 PRINT "SELECT PAYMENT TYPE:":PRINT TAB(10);"1=SALARIES";TAB(30);"2=UTILITIES";TAB(60);"3=PHONE":PRINT TAB(10);"4=PEST CONTROL";TAB(30);"5=TRAVEL";TAB(60);"6=ADVERTISING":PRINT TAB(10);"7=LEGAL & ACCTNG";TAB(30);"8=MISC.";TAB(60);"9=RET. CHECKS"
  204. 1035 PRINT TAB(10);"10=ADVALOREM & GENERAL TAXES";TAB(30);"11=INTEREST EXPENSES";TAB(60);"12=DEPRECIATION":PRINT TAB(10);"13=DUES/SUBSCRIPTIONS";TAB(30);"14=POSTAGE";TAB(60);"15=INSURANCE":PRINT TAB(10);"16=MAINTENANCE/CLEANING";TAB(30);"17=REPAIRS";
  205. 1040 PRINT TAB(60);"18=SUPPLIES":PRINT TAB(10);"19=EQUIPMENT"
  206. 1045 INPUT TYPE(A):GOTO 865
  207. 1050 INPUT "CHECK NUMBER";CHECKNO(A):GOTO 865
  208. 1055 INPUT "PAID TO:";PAIDTO$(A):GOTO 865
  209. 1060 INPUT "DATE:";DD$(A):GOTO 865
  210. 1065 INPUT "AMOUNT:";AMOUNT(A):GOTO 865
  211. 1070 CLS:PRINT "1. TYPE";TYPE(CHANGE);TAB(15);"2. CHECK #:";CHECKNO(CHANGE);TAB(40);"3.PAID TO:";PAIDTO$(CHANGE):PRINT :PRINT "4. DATE:";DD$(CHANGE);TAB(20);"5. AMOUNT";USING "$####.##";AMOUNT(CHANGE)
  212. 1075 INPUT "NUMBER OF ITEM TO CHANGE";ITEM:ON ITEM GOTO 1085,1105,1110,1115,1120
  213. 1080 GOTO 895
  214. 1085 PRINT "SELECT PAYMENT TYPE:":PRINT TAB(10);"1=SALARIES";TAB(30);"2=UTILITIES";TAB(60);"3=PHONE":PRINT TAB(10);"4=PEST CONTROL";TAB(30);"5=TRAVEL";TAB(60);"6=ADVERTISING":PRINT TAB(10);"7=LEGAL & ACCTNG";TAB(30);"8=MISC.";TAB(60);"9=RET. CHECKS"
  215. 1090 PRINT TAB(10);"10=ADVALOREM & GENERAL TAXES";TAB(30);"11=INTEREST EXPENSES";TAB(60);"12=DEPRECIATION":PRINT TAB(10);"13=DUES/SUBSCRIPTIONS";TAB(30);"14=POSTAGE";TAB(60);"15=INSURANCE":PRINT TAB(10);"16=MAINTENANCE/CLEANING";TAB(30);"17=REPAIRS";
  216. 1095 PRINT TAB(60);"18=SUPPLIES":PRINT TAB(10);"19=EQUIPMENT"
  217. 1100 INPUT TYPE(CHANGE):GOTO 1070
  218. 1105 INPUT "CHECK NUMBER:";CHECKNO(CHANGE):GOTO 1070
  219. 1110 INPUT "PAID TO:";PAIDTO$(CHANGE):GOTO 1070
  220. 1115 INPUT "DATE:";DD$(CHANGE):GOTO 1070
  221. 1120 INPUT "AMOUNT:";AMOUNT(CHANGE):GOTO 1070
  222. 1125 CLS:PRINT :PRINT TAB(34);"REPORTS MENU":PRINT
  223. 1130 PRINT TAB(20);"1.  DO DAILY REPORTS ON UNIT STATUS":PRINT TAB(20);"2.  LIST ALL OUTSTANDING UNITS"
  224. 1135 PRINT TAB(20);"3.  CURRENT STATUS OF A SINGLE UNIT"
  225. 1140 PRINT TAB(20);"4.  LIST STATUS OF ALL UNITS"
  226. 1145 PRINT TAB(20);"5.  DO AGING ANALYSIS"
  227. 1150 PRINT TAB(20);"6.  DUMP INCOME FILES FOR SPECIFIC MONTH":PRINT TAB(20);"7. DUMP EXPENSE FILES FOR SPECIFIC MONTH":PRINT TAB(20);"8. DUMP DAILY REPORTS FOR MONTH"
  228. 1155 PRINT TAB(20);"9.  RETURN TO MAIN MENU"
  229. 1160 PRINT :PRINT :PRINT TAB(15);"SELECT YOUR CHOICE AND STRIKE ENTER KEY";:INPUT CHOICE
  230. 1165 TOTAL=0:TOTOWE=0:TORATE=0:ON CHOICE GOSUB 1185,1390,1535,735,2245,4120,2645,4230,50
  231. 1170 IF LEFT$(HC$,1)="Y" OR LEFT$(HC$,1)="y" THEN LPRINT CHR$(12)
  232. 1175 CLOSE #1:CLOSE #2:CLOSE #3:INPUT "RETURN TO REPORTS MENU (Y=YES)";ASK$:IF LEFT$(ASK$,1)="Y" OR LEFT$(ASK$,1)="y" THEN 1125 ELSE RETURN
  233. 1180 GOTO 50
  234. 1185 CLS:INPUT "DO YOU WISH A LISTING OF PADLOCKED UNITS TODAY (Y/N)";PU$
  235. 1190 GOSUB 155
  236. 1195 PRINT "VACANCY REPORT FOR ";TODAY$:PRINT STRING$(79,"="):LPRINT "VACANCY REPORT FOR ";TODAY$:LPRINT STRING$(79,"="):PRINT "UNIT";TAB(10);"SIZE";TAB(20);"RATE";TAB(30);"STATUS":LPRINT "UNIT";TAB(10);"SIZE";TAB(20);"RATE";TAB(30);"STATUS"
  237. 1200 PRINT STRING$(79,"="):LPRINT STRING$(79,"=")
  238. 1205 GOSUB 155
  239. 1210 FOR UNIT=1 TO NUM.UNITS
  240. 1215 GET #1,UNIT:GET #2,UNIT:GET #3,UNIT:GOSUB 140
  241. 1220 IF LEFT$(TENANT$,6)="VACANT" THEN 1240
  242. 1225 GOTO 1255
  243. 1230 IF CM$=SIZE$ THEN 1240
  244. 1235 GOTO 1255
  245. 1240 PRINT UNIT$;TAB(10);SIZE$;TAB(20);RATE;TAB(30);TERM$
  246. 1245 LPRINT UNIT$;TAB(10);SIZE$;TAB(20);RATE;TAB(30);TERM$
  247. 1250 TOTAL=TOTAL+1:TORATE=TORATE+RATE
  248. 1255 NEXT UNIT
  249. 1260 PRINT STRING$(79,"="):LPRINT STRING$(79,"="):PRINT "TOTAL NUMBER OF VACANT UNITS:";TOTAL:PRINT "TOTAL VALUE OF RENT ON VACANT UNITS=";USING "$##,###.##";TORATE
  250. 1265 LPRINT "TOTAL NUMBER OF VACANT UNITS:";TOTAL:LPRINT "TOTAL VALUE OF RENT ON VACANT UNITS=";USING "$##,###.##";TORATE:VACANT=TOTAL
  251. 1270 'INPUT "STRIKE ENTER TO CONTINUE";X
  252. 1275 TOTAL=0:TORATE=0:TOTOWE=0:FOR A=1 TO 5:PRINT :LPRINT :NEXT A
  253. 1280 IF LEFT$(PU$,1)="y" OR LEFT$(PU$,1)="Y" THEN 1285 ELSE 1295
  254. 1285 LPRINT "INVENTORY OF PADLOCKED UNITS ON ";TODAY$:LPRINT STRING$(79,"="):LPRINT "UNIT";TAB(8);"SIZE";TAB(15);"TENANT";TAB(47);"BAL.DUE";TAB(57);"PDLCKED";TAB(65);"CUT":LPRINT STRING$(79,"-")
  255. 1290 PRINT "INVENTORY OF PADLOCKED UNITS ON ";TODAY$:PRINT STRING$(79,"="):PRINT "UNIT";TAB(8);"SIZE";TAB(15);"TENANT";TAB(47);"BAL.DUE";TAB(57);"PDLCKED";TAB(65);"CUT":PRINT STRING$(79,"-")
  256. 1295 FOR AA=1 TO NUM.UNITS
  257. 1300 GET #1,AA:GET #2,AA:GET #3,AA:GOSUB 140
  258. 1305 DEL=OWE/RATE: IF DEL=1 AND MID$(TODAY$,4,2)>"20" THEN 1335
  259. 1310 IF MID$(TODAY$,4,2)>"20" AND DEL>1 AND DEL=<2 THEN DELINQUENT=DELINQUENT+1
  260. 1315 IF VAL(MID$(TODAY$,4,2))<20 AND DEL>0 AND DEL<2 THEN DELINQUENT=DELINQUENT+1
  261. 1320 IF MID$(TODAY$,4,2)>"20" AND DEL>1 AND DEL=<2 THEN DR=DR+OWE
  262. 1325 IF VAL(MID$(TODAY$,4,2))<20 AND DEL>0 AND DEL<2 THEN DR=DR+OWE
  263. 1330 IF LEFT$(TENANT$,6)="VACANT" OR LEFT$(TENANT$,30)="                              " THEN 1340 ELSE 1335
  264. 1335 UR=UR+1
  265. 1340 IF LEFT$(PU$,1)="y" OR LEFT$(PU$,1)="Y" THEN 1345 ELSE 1360
  266. 1345 IF PADLOCK$="Y" OR PADLOCK$="y" THEN 1355
  267. 1350 GOTO 1360
  268. 1355 PRINT UNIT$;TAB(8);SIZE$;TAB(15);TENANT$;TAB(47);OWE;TAB(57);PADLOCK$;TAB(65);CUT$:LPRINT UNIT$;TAB(8);SIZE$;TAB(15);TENANT$;TAB(47);OWE;TAB(57);PADLOCK$;TAB(65);CUT$:TOTAL=TOTAL+1:TOTOWE=TOTOWE+OWE
  269. 1360 NEXT AA
  270. 1365 PRINT STRING$(79,"-"):PRINT "TOTAL UNITS PADLOCKED OR CUT=";TOTAL:PRINT "TOTAL MONEY DELINQUENT ON PADLOCKED ON CUT UNITS=";USING "$##,###.##";TOTOWE
  271. 1370 IF LEFT$(PU$,1)="Y" OR LEFT$(PU$,1)="y" THEN 1375 ELSE 1380
  272. 1375 LPRINT STRING$(79,"-"):LPRINT "TOTAL UNITS PADLOCKED OR CUT=";TOTAL:LPRINT "TOTAL MONEY DELINQUENT ON PADLOCKED OR CUT UNITS=";USING "$##,###.##";TOTOWE
  273. 1380 CLOSE:GOSUB 3595
  274. 1385 INPUT "STRIKE ENTER KEY";X:RETURN
  275. 1390 CLS:TOTAL=0:TOTOWE=0:INPUT "DO YOU WANT ADDRESSES PRINTED";ADATA$:IF LEFT$(ADATA$,1)="Y" OR LEFT$(ADATA$,1)="y" THEN ADATA=1 ELSE ADATA=0
  276. 1395 CLS:PRINT "LIST OF ALL UNITS WITH OUTSTANDING BALANCES":LPRINT "LIST OF ALL UNITS WITH OUTSTANDING BALANCES ON ";DATE$:PRINT STRING$(79,"-"):LPRINT STRING$(79,"-")
  277. 1400 PRINT "UNIT";TAB(10);"TENANT";TAB(45);"BAL.DUE";TAB(55);"DUE ON";TAB(68);"PDLKD";TAB(75);"CUT":LPRINT "UNIT";TAB(10);"TENANT";TAB(45);"BAL.DUE";TAB(55);"DUE ON";TAB(68);"PDLKD";TAB(75);"CUT":PRINT STRING$(79,"-"):LPRINT STRING$(79,"-")
  278. 1405 GOSUB 155
  279. 1410 FOR A=1 TO NUM.UNITS
  280. 1415 GET #1,A:GET #2,A:GET #3,A:GOSUB 140
  281. 1420 IF MID$(TODAY$,4,2)>"20" AND OWE-RATE>0 THEN GOSUB 1450
  282. 1425 IF VAL(MID$(TODAY$,4,2))<20 AND OWE>0 THEN GOSUB 1450
  283. 1430 NEXT A
  284. 1435 PRINT STRING$(79,"-"):LPRINT STRING$(79,"-"):PRINT "TOTAL NUMBER OF UNITS WITH UNPAID BALANCES:";TOTAL:LPRINT "TOTAL NUMBER OF UNITS WITH UNPAID BALANCES:";TOTAL
  285. 1440 LPRINT "TOTAL AMOUNT OWED:";USING "$##,###.##";TOTOWE:PRINT "TOTAL AMOUNT OWED:";USING "$##,###.##";TOTOWE
  286. 1445 CLOSE #1:CLOSE #2:TOTAL=0:TOTOWE=0:TORATE=0:INPUT "STRIKE ENTER TO CONTINUE";X:RETURN
  287. 1450 PRINT UNIT$;TAB(10);TENANT$;TAB(45);OWE;TAB(55);DUE$;TAB(68);PADLOCK$;TAB(75);CUT$:LPRINT UNIT$;TAB(10);TENANT$;TAB(45);OWE;TAB(55);DUE$;TAB(68);PADLOCK$;TAB(75);CUT$
  288. 1455 IF ADATA=1 THEN GOSUB 3420
  289. 1460 TOTAL=TOTAL+1:TOTOWE=TOTOWE+OWE
  290. 1465 RETURN
  291. 1470 CLS:INPUT "WHAT IS THE EARLIEST DATE YOU WISH REVIEWED:";FIRST$:INPUT "WHAT IS THE LAST DATE YOU WISH REVIEWED:";LAST$
  292. 1475 CLS:PRINT TAB(15);"UNITS WITH TERMS EXPIRING BETWEEN ";FIRST$;" AND ";LAST$:PRINT "UNIT";TAB(10);"TENANT";TAB(45);"HOME PHONE";TAB(60);"WORK PHONE":LPRINT "UNITS WHICH MAY BE VACATED BETWEEN ";FIRST$;" AND ";LAST$:LPRINT STRING$(80,"-")
  293. 1480 LPRINT "UNIT";TAB(10);"TENANT";TAB(45);"HOME PHONE";TAB(60);"WORK PHONE":LPRINT STRING$(79,"-")
  294. 1485 GOSUB 155
  295. 1490 FOR A=1 TO NUM.UNITS
  296. 1495 GET #1,A:GET #2,A:GET #3,A:GOSUB 140
  297. 1500 IF TERM$="" THEN 1515
  298. 1505 IF TERM$=>FIRST$ THEN 1510 ELSE 1515
  299. 1510 IF TERM$<=LAST$ THEN GOSUB 1530
  300. 1515 NEXT A
  301. 1520 PRINT STRING$(79,"-"):LPRINT STRING$(79,"-"):LPRINT "NUMBER OF UNITS WHICH MAY BE VACATED BETWEEN REQUESTED DATES:";TOTAL:PRINT "NUMBER OF UNITS WHICH MAY BE VACATED BETWEEN REQUESTED DATES:";TOTAL
  302. 1525 INPUT "STRIKE ENTER TO CONTINUE";X:RETURN
  303. 1530 PRINT UNIT$;TAB(10);TENANT$;TAB(45);PHONE$;TAB(60);WRKPH$:LPRINT UNIT$;TAB(10);TENANT$;TAB(45);PHONE$;TAB(60);WRKPH$:TOTAL=TOTAL+1:RETURN
  304. 1535 CLS:INPUT "WHICH UNIT DO YOU WISH TO CHECK";UNIT:INPUT "DO YOU WISH HARCOPY (Y=YES)";HC$
  305. 1540 GOSUB 155
  306. 1545 GET #1,UNIT:GET #2,UNIT:GET #3,UNIT:GOSUB 140
  307. 1550 GOSUB 435
  308. 1555 IF LEFT$(HC$,1)="Y" OR LEFT$(HC$,1)="y" THEN GOSUB 635
  309. 1560 RETURN
  310. 1565 TOTPAID=0:CLS:INPUT "HOW MANY TRANSACTIONS WILL YOU BE ENTERING";PAYMENTS
  311. 1570 INPUT "PLEASE ENTER CURRENT MONTH NAME (JANUARY-DECEMBER)";MONTH$:FILE$="B:"+LEFT$(MONTH$,4)+RIGHT$(DATE$,2)
  312. 1575 FOR COUNT=1 TO PAYMENTS
  313. 1580 DAY$(COUNT)=TODAY$
  314. 1585 INPUT "AMOUNT PAID:";PAID(COUNT)
  315. 1590 PRINT "FROM WHAT SOURCE: (1-450)=RENT  999=SUPPORT SALES  998=INTEREST INCOME":INPUT "997= PROPERTY SALES   995=PAST DUE VACATED";SOURCE(COUNT)
  316. 1595 CLS:PRINT "1. DATE:";DAY$(COUNT):PRINT "2.  AMOUNT PAID:";USING "$####.##";PAID(COUNT):PRINT "3. SOURCE:";SOURCE(COUNT)
  317. 1600 PRINT "4. ALL ITEMS CORRECT":INPUT "ENTER DESIRED NUMBER TO CORRECT";CHOICE:ON CHOICE GOTO 470,475,480,1605
  318. 1605 NEXT COUNT
  319. 1610 INPUT "DO YOU WISH A LISTING OF THESE PAYMENTS (Y=YES)";HC$: FOR A=1 TO 5:PRINT :IF LEFT$(HC$,1)="Y" OR LEFT$(HC$,1)="y" THEN LPRINT:NEXT A
  320. 1615 PRINT "#";TAB(10);"DATE PAID";TAB(30);"AMOUNT";TAB(45);"SOURCE":IF LEFT$(HC$,1)="Y" OR LEFT$(HC$,1)="y" THEN LPRINT "RECAP OF PAYMENTS MADE ON ";TODAY$:IF LEFT$(HC$,1)="Y" OR LEFT$(HC$,1)="y" THEN LPRINT STRING$(79,"-")
  321. 1620 IF LEFT$(HC$,1)="Y" OR LEFT$(HC$,1)="y" THEN LPRINT "#";TAB(10);"DATE PAID";TAB(30);"AMOUNT";TAB(45);"SOURCE":IF LEFT$(HC$,1)="Y" OR LEFT$(HC$,1)="y" THEN LPRINT STRING$(79,"-")
  322. 1625 FOR CC=1 TO PAYMENTS
  323. 1630 PRINT CC;TAB(10);DAY$(CC);TAB(30);USING "$####.##";PAID(CC);:PRINT TAB(45);SOURCE(CC)
  324. 1635 IF LEFT$(HC$,1)="y" OR LEFT$(HC$,1)="Y" THEN GOSUB 485
  325. 1640 TOTPAID=TOTPAID+PAID(CC)
  326. 1645 NEXT CC
  327. 1650 PRINT STRING$(80,"-"):PRINT "TOTAL OF PAYMENTS ENTERED:";USING "$##,###.##";TOTPAID
  328. 1655 IF LEFT$(HC$,1)="Y" OR LEFT$(HC$,1)="y" THEN LPRINT STRING$(79,"-"):IF LEFT$(HC$,1)="Y" OR LEFT$(HC$,1)="y" THEN LPRINT "TOTAL PAYMENTS ENTERED:";USING "$##,###.##";TOTPAID
  329. 1660 TOTPAID=0:INPUT "EXAMINE LISTINGS FOR ACCURACY.  STRIKE ENTER TO CONTINUE";X
  330. 1665 INPUT "ARE THERE CORRECTIONS (Y=YES)";CR$: IF LEFT$(CR$,1)="Y" OR LEFT$(CR$,1)="y" THEN 1805
  331. 1670 PRINT "WRITING PAYMENTS TO WORK FILE"
  332. 1675 GOSUB 155
  333. 1680 FOR A=1 TO PAYMENTS
  334. 1685 IF SOURCE(A)>NUM.UNITS THEN 1725
  335. 1690 UNIT=SOURCE(A)
  336. 1695 GET #1,UNIT:GET #2,UNIT:GET #3,UNIT:GOSUB 140
  337. 1700 PB(A)=OWE:OWE=OWE-PAID(A):LAST$=DAY$(A)
  338. 1705 T1=PAID(A)/RATE: GOSUB 3435
  339. 1710 DUE$=T1$+"/"+T2$+"/"+T3$
  340. 1715 GOSUB 120
  341. 1720 PUT #1,UNIT:PUT #2,UNIT:PUT #3,UNIT
  342. 1725 NEXT A
  343. 1730 CLOSE #1:CLOSE #2:CLOSE #3:PRINT "PAYMENTS POSTED"
  344. 1735 PRINT "MOVING PAYMENTS TO PERMANENT FILES"
  345. 1740 PRINT "MAKE CERTAIN YOU HAVE THE DATA DISK FOR RENT/EXPENSES/DAILY REPORTS":PRINT "INTO DRIVE B.  STRIKE ENTER TO CONTINUE";:INPUT X
  346. 1745 OPEN FILE$ FOR APPEND AS 1
  347. 1750 FOR AA=1 TO PAYMENTS
  348. 1755 PRINT #1,DAY$(AA):PRINT #1,PAID(AA):PRINT #1,SOURCE(AA):PRINT #1,PB(AA)
  349. 1760 NEXT AA
  350. 1765 CLOSE #1
  351. 1770 PRINT "PAYMENTS NOW STORED IN FILE ";FILE$
  352. 1775 OPEN "B:CHEK" FOR INPUT AS 1:INPUT #1,CHEK:CLOSE:PC=CHEK
  353. 1780 FOR AA=1 TO PAYMENTS
  354. 1785 CHEK=CHEK +PAID(AA):PP=PP+PAID(AA)
  355. 1790 NEXT AA
  356. 1795 CLS:OPEN "B:CHEK" FOR OUTPUT AS 2:PRINT #2,CHEK:CLOSE:PRINT "CHECKING ACCOUNT BALANCE BEFORE PAYMENTS:";USING "$###,###.##";PC:PRINT "BALANCE AFTER PAYMENTS OF ";USING "$###,###.##";PP;:PRINT " DEPOSITED IS ";USING "$###,###.##";CHEK
  357. 1800 PP=0:PC=0:CHEK=0:INPUT "STRIKE ENTER TO CONTINUE";X:RETURN
  358. 1805 INPUT "WHAT IS THE LINE NUMBER OF THE PAYMENT TO CHANGE";CHANGE
  359. 1810 CLS:PRINT "1.DATE:";DAY$(CHANGE):PRINT "2.AMOUNT PAID:";USING "$####.##";PAID(CHANGE):PRINT "3.SOURCE:";SOURCE(CHANGE)
  360. 1815 PRINT "4. ALL ITEMS NOW CORRECT":INPUT "YOUR CHOICE IS ";CH
  361. 1820 ON CH GOTO 1845,1850,1840,1830
  362. 1825 GOTO 1810
  363. 1830 INPUT "ARE THERE OTHER CHANGES TO MAKE (Y=YES)";ASK$:IF LEFT$(ASK$,1)="Y" OR LEFT$(ASK$,1)="y" THEN 1805
  364. 1835 TOTPAID=0:INPUT "DO YOU WISH TO SEE A NEW RECAP OF PAYMENTS";ASK$:IF LEFT$(ASK$,1)="Y" OR LEFT$(ASK$,1)="y" THEN 1610 ELSE 1670
  365. 1840 PRINT "SOURCE IS: (1-450=RENT  999=SUPPORT SALES":INPUT "998=INTEREST INCOME  997=PROPERTY SALES  995=PAST DUE-VACATED)";SOURCE(CHANGE):GOTO 1810
  366. 1845 INPUT "DATE:";DAY$(CHANGE):GOTO 1810
  367. 1850 INPUT "AMOUNT PAID:";PAID(CHANGE):GOTO 1810
  368. 1855 CLS:PRINT :PRINT TAB(28);"B I L L I N G   M E N U ":PRINT
  369. 1860 PRINT TAB(20);"1.  PRINT TRIAL BALANCE"
  370. 1865 PRINT TAB(20);"2.  POST BILLING INFORMATION & PRODUCE BILLS":PRINT TAB(20);"3.  DO AGING ANALYSIS"
  371. 1870 PRINT TAB(20);"4.  PRODUCE BILL ON SINGLE UNIT"
  372. 1875 PRINT TAB(20);"5.  RETURN TO MAIN MENU"
  373. 1880 PRINT
  374. 1885 PRINT
  375. 1890 PRINT TAB(15);"YOUR SELECTION IS:";:INPUT CHOICE
  376. 1895 ON CHOICE GOSUB 1910,2020,2245,2415,50
  377. 1900 INPUT "RETURN TO BILLING MENU (Y=YES)";ASK$:IF LEFT$(ASK$,1)="Y" OR LEFT$(ASK$,1)="Y" THEN 1855
  378. 1905 RETURN
  379. 1910 CLS:LPRINT TAB(30);"TRIAL BALANCE FOR ";TODAY$:LPRINT TAB(30);STRING$(27,"-"):LPRINT :LPRINT :LPRINT "UNIT";TAB(10);"SIZE";TAB(17);"TENANT";TAB(48);"PREVIOUS";TAB(60);"RATE";TAB(70);"$$ BILLED"
  380. 1915 PRINT TAB(30);"TRIAL BALANCE FOR ";TODAY$:PRINT TAB(30);STRING$(27,"-"):PRINT :PRINT :PRINT "UNIT";TAB(10);"SIZE";TAB(17);"TENANT";TAB(48);"PREVIOUS";TAB(60);"RATE";TAB(70);"$$ BILLED"
  381. 1920 GOSUB 155
  382. 1925 FOR A=1 TO NUM.UNITS
  383. 1930 GET #1,A:GET #2,A:GET #3,A:GOSUB 140
  384. 1935 IF LEFT$(TENANT$,6)="VACANT" THEN 1995
  385. 1940 IF CUT$="P" THEN GOTO 2005
  386. 1945 IF OWE>0 THEN 2015
  387. 1950 PRINT UNIT$;TAB(10);SIZE$;TAB(17);TENANT$;TAB(48);OWE;TAB(60);RATE;TAB(70);RATE+OWE:LPRINT UNIT$;TAB(10);SIZE$;TAB(17);TENANT$;TAB(48);OWE;TAB(60);RATE;TAB(70);RATE+OWE
  388. 1955 PRINT TAB(17);ADDR$;"   ";ADDR1$;"   ";CITY$;",";STA$;"  ";ZIP$:LPRINT TAB(17);ADDR$;"   ";ADDR1$;"   ";CITY$;",";STA$;"  ";ZIP$
  389. 1960 NEWBILL=NEWBILL+RATE+OWE:COUNT=COUNT+1
  390. 1965 NEXT A
  391. 1970 PRINT STRING$(79,"-"):LPRINT STRING$(79,"-"):PRINT "AMOUNT OF THIS BILLING:";USING "$##,###.##";NEWBILL:LPRINT "AMOUNT OF THIS BILLING;";USING "$##,###.##";NEWBILL:PRINT "TOTAL NUMBER OF BILLS GENERATED:";COUNT:LPRINT "TOTAL";
  392. 1975 LPRINT " NUMBER OF BILLS GENERATED:";COUNT:PRINT "TOTAL NUMBER OF PRORATED BILLS:";PRORATE:LPRINT "TOTAL NUMBER OF PRORATED BILLS:";PRORATE:PRINT "RENT ON PRORATED UNITS:";USING "$##,###.##";PROWE
  393. 1980 LPRINT "RENT ON PRORATED UNITS:";USING "$##,###.##";PROWE:PRINT "NUMBER OF DELINQUENT UNITS";DELINQUENT:LPRINT "NUMBER OF DELINQUENT UNITS:";DELINQUENT:PRINT "RENT DUE ON DELINQUENT UNITS:";USING "$##,###.##";TOTDEL
  394. 1985 LPRINT "RENT DUE ON DELINQUENT UNITS:";USING "$##,###.##";TOTDEL
  395. 1990 RETURN
  396. 1995 VACANT=VACANT+1:VACRATE=VACRATE+RATE:IF SIZE$="5X10 " THEN VACSIZE=VACSIZE+50:IF SIZE$="5X20 " THEN VACSIZE=VACSIZE+100:IF SIZE$="10X10" THEN VACSIZE=VACSIZE+100:IF SIZE$="10X20" THEN VACSIZE=VACSIZE+200
  397. 2000 IF SIZE$="20X20" THEN VACSIZE=VACSIZE+400:GOTO 1965
  398. 2005 PRORATE=PRORATE+1:PROWE=PROWE+RATE:GOTO 1965
  399. 2010 DELINQUENT=DELINQUENT+1:TOTDEL=TOTDEL+OWE+RATE:GOTO 1950
  400. 2015 DELINQUENT=DELINQUENT+1:TOTDEL=TOTDEL+OWE+RATE:GOTO 1950
  401. 2020 CLS:INPUT "ENTER MONTH # FOR THESE BILLS";DT:ON DT GOSUB 3360,3365,3370,3375,3380,3385,3390,3395,3400,3405,3410,3415:PRINT "UPDATING RECORDS"
  402. 2025 GOSUB 155
  403. 2030 FOR A=1 TO NUM.UNITS
  404. 2035 GET #1,A:GET #2,A:GET #3,A:GOSUB 140
  405. 2040 IF LEFT$(TENANT$,6)="VACANT" THEN 2065
  406. 2045 IF CUT$="P" OR CUT$="p" THEN 2065
  407. 2050 OWE=OWE+RATE
  408. 2055 GOSUB 120
  409. 2060 PUT #1,A:PUT #2,A:PUT #3,A
  410. 2065 NEXT A
  411. 2070 PRINT "READY TO PRODUCE STATEMENTS.  POSITION PAPER PROPERLY IN PRINTER AND STRIKE TO CONTINUE WHEN READY":INPUT X
  412. 2075 FOR A=1 TO NUM.UNITS
  413. 2080 GET #1,A:GET #2,A:GET #3,A:GOSUB 140
  414. 2085 IF LEFT$(TENANT$,6)="VACANT" THEN 2095
  415. 2090 IF OWE>0 THEN GOSUB 2210
  416. 2095 NEXT A
  417. 2100 PRINT "STATEMENTS COMPLETED":CLOSE #1:CLOSE #2:CLOSE #2
  418. 2105 RETURN
  419. 2110 INPUT "WHAT IS THE FIRST DATE FOR WHICH YOU WANT BILLS PRODUCED";FIRST$:INPUT "WHAT IS THE LAST DATE";LAST$:INPUT "WHAT IS THE NEW DUE DATE";DUD$
  420. 2115 GOSUB 155
  421. 2120 FOR A=1 TO NUM.UNITS
  422. 2125 GET #1,A:GET #2,A:GET #3,A:GOSUB 140
  423. 2130 IF CUT$="P" OR CUT$="p" THEN 2135 ELSE 2145
  424. 2135 IF DUE$=>FIRST$ THEN 2140 ELSE 2145
  425. 2140 IF DUE$<=LAST$ THEN GOSUB 2210
  426. 2145 NEXT A
  427. 2150 PRINT "PRORATE BILLS PRODUCED.  DO YOU WISH TO UPDATE THESE RECORDS WITH NEW DUE DATES AND RATES NOW (Y=YES)";ASK$:IF LEFT$(ASK$,1)="y" OR LEFT$(ASK$,1)="Y" THEN 2160
  428. 2155 CLOSE #1:CLOSE #2:CLOSE #3:RETURN
  429. 2160 FOR A=1 TO NUM.UNITS
  430. 2165 GET #1,A:GET #2,A:GET #3,A:GOSUB 140
  431. 2170 IF CUT$="P" OR CUT$="p" THEN 2175 ELSE 2195
  432. 2175 IF DUE$=>FIRST$ THEN 2180 ELSE 2195
  433. 2180 IF DUE$<=LAST$ THEN GOSUB 385
  434. 2185 GOSUB 120
  435. 2190 PUT #1,A:PUT #2,A:PUT #3,A
  436. 2195 NEXT A
  437. 2200 CLOSE #1:CLOSE #2:RETURN
  438. 2205 RETURN
  439. 2210 REM
  440. 2215 LPRINT TAB(58);TODAY$
  441. 2220 FST$=DUE$
  442. 2225 LPRINT TAB(5);TENANT$:LPRINT TAB(5);ADDR$:LPRINT TAB(5);ADDR1$:LPRINT TAB(5);CITY$;",";STA$;"  ";ZIP$:FOR SPACE=1 TO 8:LPRINT:NEXT SPACE
  443. 2228 LPRINT "FROM"; TAB(12);"TO"; TAB(22);"UNIT #"; TAB(31); "SIZE"; TAB(43); "RATE"; TAB(53);"MOS.";TAB(62); "AMT TO PAY"
  444. 2229 LPRINT "----"; TAB(12);"--"; TAB(22);"------";TAB(31);"----";TAB(43);"----"; TAB(53);"---";TAB(62);"----------"
  445. 2230 LPRINT " ";FST$;TAB(12);LST$;TAB(22);UNIT$;TAB(31);SIZE$;TAB(43);RATE;:LPRINT TAB(53);USING "##.##";OWE/RATE;:LPRINT TAB(62);USING"$####.##";OWE
  446. 2235 LPRINT CHR$(12)
  447. 2240 RETURN
  448. 2245 CLS:INPUT "DO YOU WANT HARDCOPY (Y=YES)";HC$
  449. 2250 GOSUB 725
  450. 2255 IF LEFT$(TODAY$,2)="01" THEN GOSUB 665
  451. 2260 IF LEFT$(TODAY$,2)="02" THEN GOSUB 670
  452. 2265 IF LEFT$(TODAY$,2)="03" THEN GOSUB 675
  453. 2270 IF LEFT$(TODAY$,2)="04" THEN GOSUB 680
  454. 2275 IF LEFT$(TODAY$,2)="05" THEN GOSUB 685
  455. 2280 IF LEFT$(TODAY$,2)="06" THEN GOSUB 690
  456. 2285 IF LEFT$(TODAY$,2)="07" THEN GOSUB 695
  457. 2290 IF LEFT$(TODAY$,2)="08" THEN GOSUB 700
  458. 2295 IF LEFT$(TODAY$,2)="09" THEN GOSUB 705
  459. 2300 IF LEFT$(TODAY$,2)="10" THEN GOSUB 710
  460. 2305 IF LEFT$(TODAY$,2)="11" THEN GOSUB 715
  461. 2310 IF LEFT$(TODAY$,2)="12" THEN GOSUB 720
  462. 2315 GOSUB 155
  463. 2320 FOR A=1 TO NUM.UNITS
  464. 2325 GET #1,A:GET #2,A:GET #3,A:GOSUB 140
  465. 2330 IF OWE<=0 THEN 2355
  466. 2335 DEL=OWE/RATE: IF DEL=1 AND MID$(TODAY$,4,2)>"20" THEN 2355
  467. 2340 IF DEL=>1 AND DEL<2 THEN GOTO 2385
  468. 2345 IF DEL=>2 AND DEL<3 THEN GOTO 2395
  469. 2350 IF DEL=>3 THEN GOTO 2405
  470. 2355 NEXT A
  471. 2360 PRINT STRING$(79,"-"):LPRINT STRING$(79,"-"):PRINT "TOTAL DELINQUENT UNITS=";DEL30+DEL60+DEL90:LPRINT "TOTAL DELINQUENT UNITS=";DEL30+DEL60+DEL90:PRINT "TOTAL AMOUNT AMOUNT DELINQUENT:";USING "$##,###.##";OWE30+OWE60+OWE90
  472. 2365 LPRINT "TOTAL DELINQUENT ON ALL UNITS=";USING "$##,###.##";OWE30+OWE60+OWE90:PRINT STRING$(79,"-"):LPRINT STRING$(79,"-")
  473. 2370 PRINT "30 DAYS=";USING "$##,###.##";OWE30:LPRINT "30 DAYS=";USING "$##,###.##";OWE30:PRINT "60 DAYS=";USING "$##,###.##";OWE60:LPRINT "60 DAYS=";USING "$##,###.##";OWE60
  474. 2375 PRINT "90 DAYS OR MORE=";USING "$##,###.##";OWE90:LPRINT "90 DAYS OR MORE=";USING "$##,###.##";OWE90
  475. 2380 DEL30=0:DEL60=0:DEL90=0:OWE30=0:OWE60=0:OWE90=0:RETURN
  476. 2385 DEL30=DEL30+1:OWE30=OWE30+OWE
  477. 2390 PRINT UNIT$;TAB(8);SIZE$;TAB(15);TENANT$;TAB(47);USING "$##,###.##";OWE;:PRINT TAB(65);"X":LPRINT UNIT$;TAB(8);SIZE$;TAB(15);TENANT$;TAB(47);USING "$##,###.##";OWE;:LPRINT TAB(65);"X":GOTO 2355
  478. 2395 DEL60=DEL60+1:OWE60=OWE60+OWE
  479. 2400 PRINT UNIT$;TAB(8);SIZE$;TAB(15);TENANT$;TAB(47);USING "$##,###.##";OWE;:PRINT TAB(70);"X":LPRINT UNIT$;TAB(8);SIZE$;TAB(15);TENANT$;TAB(47);USING "$##,###.##";OWE;:LPRINT TAB(70);"X":GOTO 2355
  480. 2405 DEL90=DEL90+1:OWE90=OWE90+OWE
  481. 2410 PRINT UNIT$;TAB(8);SIZE$;TAB(15);TENANT$;TAB(47);USING "$##,###.##";OWE;:PRINT TAB(75);"X":LPRINT UNIT$;TAB(8);SIZE$;TAB(15);TENANT$;TAB(47);USING "$##,###.##";OWE;:LPRINT TAB(75);"X":GOTO 2355
  482. 2415 CLS:INPUT "WHAT IS THE UNIT #";A:INPUT "WHAT IS THE MONTH NUMBER FOR THIS BILL";DT:CLS:PRINT "PRODUCING BILL"
  483. 2420 ON DT GOSUB 3360,3365,3370,3375,3380,3385,3390,3395,3400,3405,3410,3415
  484. 2425 GOSUB 155
  485. 2430 GET #1,A:GET #2,A:GET #3,A:GOSUB 140
  486. 2435 GOSUB 2210
  487. 2440 CLOSE #1:CLOSE #2:INPUT "PRODUCE ANOTHER BILL ON A SINGLE UNIT";ASK$:IF LEFT$(ASK$,1)="Y" OR LEFT$(ASK$,1)="y" THEN  GOTO 2415
  488. 2445 RETURN
  489. 2450 CLS
  490. 2455 PRINT TAB(20);"G E N E R A L  E X P E N S E S":PRINT :PRINT TAB(20);"1. ENTER OPERATING EXPENSES":PRINT TAB(20);"2. EDIT EXPENSE FILES"
  491. 2460 PRINT TAB(20);"3. PRODUCE YTD EXPENSE SUMMARY":PRINT TAB(20);"4. DUMP EXPENSE DATA FOR SPECIFIC MONTH"
  492. 2465 PRINT TAB(20);"5. RETURN TO MAIN MENU"
  493. 2470 PRINT :INPUT "                    YOUR CHOICE";CHOICE
  494. 2475 ON CHOICE GOSUB 805,2495,2570,2645,50
  495. 2480 INPUT "RETURN TO THE MAIN MENU (Y=YES)";ASK$:IF LEFT$(ASK$,1)="Y" OR LEFT$(ASK$,1)="y" THEN 2485 ELSE 2490
  496. 2485 CLEAR:TODAY$=LEFT$(DATE$,2)+"/"+MID$(DATE$,4,2)+"/"+RIGHT$(DATE$,2):GOTO 50
  497. 2490 CLEAR:TODAY$=LEFT$(DATE$,2)+"/"+MID$(DATE$,4,2)+"/"+RIGHT$(DATE$,2):GOTO 2450
  498. 2495 CLS:INPUT "ENTER MONTH NUMBER OF EXPENSES NEEDING EDITING (1-12)";MONT
  499. 2500 ON MONT GOSUB 2890,2895,2900,2905,2910,2915,2920,2925,2930,2935,2940,2945
  500. 2505 INPUT "WHO RECEIVED THE PAYMENT";CM$
  501. 2510 OPEN FILE$ FOR INPUT AS 1:OPEN "B:WORK" FOR OUTPUT AS 2
  502. 2515 FOR A=1 TO 4000
  503. 2520 IF EOF(1) THEN 2565
  504. 2525 INPUT #1,TYPE:INPUT #1,CHECKNO:INPUT #1,PAIDTO$:INPUT #1,DD$:INPUT #1,AMOUNT
  505. 2530 IF CM$=PAIDTO$ THEN 2535 ELSE 2555
  506. 2535 CLS:PRINT "1. TYPE:";TYPE;TAB(15);"2. CHECK #:";CHECKNO;TAB(38);"3. PAID TO:";PAIDTO$:PRINT :PRINT "4.DATE:";DD$;TAB(20);"5. AMOUNT";USING "$##,###.##";AMOUNT;:PRINT TAB(40);"6. RECORD CORRECT"
  507. 2540 PRINT :INPUT "SELECT NUMBER TO CORRECT FIELD OR STORE RECORD";SR
  508. 2545 ON SR GOTO 3050,3070,3075,3080,3085,2555
  509. 2550 GOTO 2535
  510. 2555 PRINT #2,TYPE:PRINT #2,CHECKNO:PRINT #2,PAIDTO$:PRINT #2,DD$:PRINT #2,AMOUNT
  511. 2560 NEXT A
  512. 2565 CLOSE:KILL FILE$:NAME "B:WORK" AS FILE$:RETURN
  513. 2570 CLS:INPUT "CURRENT MONTH NUMBER IS: (1-12)";MM
  514. 2575 LPRINT TAB(27);"YEAR TO DATE OPERATING EXPENSES":LPRINT TAB(31);"PREPARED ON ";TODAY$:LPRINT TAB(27);STRING$(31,"-"):FOR A=1 TO 5:LPRINT :NEXT A
  515. 2580 FOR COUNT =1 TO MM
  516. 2585 ON COUNT GOSUB 2890,2895,2900,2905,2910,2915,2920,2925,2930,2935,2940,2945
  517. 2590 OPEN FILE$ FOR INPUT AS 1
  518. 2595 FOR A=1 TO 4000
  519. 2600 IF EOF(1) THEN 2630
  520. 2605 INPUT #1,TYPE:INPUT #1,CHECKNO:INPUT #1,PAIDTO$:INPUT #1,DD$:INPUT #1,AMOUNT
  521. 2610 ON TYPE GOSUB 2950,2955,2960,2965,2970,2975,2980,2985,2990,2995,3000,3005,3010,3015,3020,3025,3030,3035,3040
  522. 2615 GOSUB 3045
  523. 2620 ON TYPE GOSUB 3090,3095,3100,3105,3110,3115,3120,3125,3130,3135,3140,3145,3150,3155,3160,3165,3170,3175,3180
  524. 2625 NEXT A
  525. 2630 CLOSE #1:NEXT COUNT
  526. 2635 GOSUB 4600
  527. 2640 RETURN
  528. 2645 INPUT "***DUMP FILES***   FOR WHICH MONTH'S EXPENSES(1-12)";MONTH
  529. 2650 ON MONTH GOSUB 2890,2895,2900,2905,2910,2915,2920,2925,2930,2935,2940,2945
  530. 2655 GOSUB 3200
  531. 2660 OPEN FILE$ FOR INPUT AS 1
  532. 2665 FOR A=1 TO 4000
  533. 2670 IF EOF(1) THEN GOTO 2690
  534. 2675 INPUT #1,TYPE:INPUT #1,CHECKNO:INPUT #1,PAIDTO$:INPUT #1,DD$:INPUT #1,AMOUNT:COUNT=COUNT+1
  535. 2680 GOSUB 3190
  536. 2685 NEXT A
  537. 2690 CLOSE #1
  538. 2695 LPRINT STRING$(79,"-"):LPRINT "TOTAL RECORDS PROCESSED:";COUNT
  539. 2700 INPUT "STRIKE ENTER TO CONTINUE:";X:COUNT=0:RETURN
  540. 2705 CLS:PRINT "PRODUCE OPERATING SUMMARY"
  541. 2710 INPUT "SELECT:  1=SINGLE MONTH  2=YEAR-TO-DATE";SE:
  542. 2715 IF SE=1 THEN 2730
  543. 2720 IF SE=2 THEN 2850
  544. 2725 GOTO 2705
  545. 2730 INPUT "WHAT IS THE CURRENT MONTH NUMBER (1-12)";MONTH:ON MONTH GOSUB 2890,2895,2900,2905,2910,2915,2920,2925,2930,2935,2940,2945
  546. 2735 OPEN FILE1$ FOR INPUT AS 1
  547. 2740 FOR A=1 TO 4000
  548. 2745 IF EOF(1) THEN 2785
  549. 2750 INPUT #1,DAY$:INPUT #1,PAID:INPUT #1,SOURCE:INPUT #1,PB
  550. 2755 IF SOURCE=<NUM.UNITS THEN GOSUB 3215
  551. 2760 IF SOURCE=999 THEN GOSUB 3220
  552. 2765 IF SOURCE=998 THEN GOSUB 3225
  553. 2770 IF SOURCE=997 THEN GOSUB 3230
  554. 2775 IF SOURCE=995 THEN GOSUB 3235
  555. 2780 COUNT=COUNT+1:NEXT A
  556. 2785 CLOSE #1
  557. 2790 OPEN FILE$ FOR INPUT AS 1
  558. 2795 FOR A=1 TO 4000
  559. 2800 IF EOF(1) THEN 2825
  560. 2805 INPUT #1,TYPE:INPUT #1,CHECKNO:INPUT #1,PAIDTO$:INPUT #1,DD$:INPUT #1,AMOUNT
  561. 2810 IF TYPE<1 OR TYPE>19 THEN 2820
  562. 2815 ON TYPE GOSUB 2950,2955,2960,2965,2970,2975,2980,2985,2990,2995,3000,3005,3010,3015,3020,3025,3030,3035,3040
  563. 2820 COUNT1=COUNT1+1:NEXT A
  564. 2825 CLOSE #1:
  565. 2830 IF FLAG=1 THEN RETURN
  566. 2835 GOSUB 3245
  567. 2840 GOSUB 3250
  568. 2845 RETURN
  569. 2850 FLAG=1:INPUT "WHAT IS THE CURRENT MONTH #(1-12)";MONTHS
  570. 2855 FOR YTD=1 TO MONTHS
  571. 2860 ON YTD GOSUB 2890,2895,2900,2905,2910,2915,2920,2925,2930,2935,2940,2945
  572. 2865 GOSUB 2735
  573. 2870 NEXT YTD
  574. 2875 GOSUB 3240
  575. 2880 GOSUB 3250
  576. 2885 FLAG=0:RETURN
  577. 2890 FILE1$="B:JANU"+RIGHT$(DATE$,2):MONTH$="JANUARY":FILE$="B:JANEXP"+RIGHT$(DATE$,2):RETURN
  578. 2895 FILE1$="B:FEBR"+RIGHT$(DATE$,2):MONTH$="FEBRUARY":FILE$="B:FEBEXP"+RIGHT$(DATE$,2):RETURN
  579. 2900 FILE1$="B:MARC"+RIGHT$(DATE$,2):MONTH$="MARCH":FILE$="B:MAREXP"+RIGHT$(DATE$,2):RETURN
  580. 2905 FILE1$="B:APRI"+RIGHT$(DATE$,2):MONTH$="APRIL":FILE$="B:APREXP"+RIGHT$(DATE$,2):RETURN
  581. 2910 FILE1$="B:MAY"+RIGHT$(DATE$,2):MONTH$="MAY":FILE$="B:MAYEXP"+RIGHT$(DATE$,2):RETURN
  582. 2915 FILE1$="B:JUNE"+RIGHT$(DATE$,2):MONTH$="JUNE":FILE$="B:JUNEXP"+RIGHT$(DATE$,2):RETURN
  583. 2920 FILE1$="B:JULY"+RIGHT$(DATE$,2):MONTH$="JULY":FILE$="B:JULEXP"+RIGHT$(DATE$,2):RETURN
  584. 2925 FILE1$="B:AUGU"+RIGHT$(DATE$,2):MONTH$="AUGUST":FILE$="B:AUGEXP"+RIGHT$(DATE$,2):RETURN
  585. 2930 FILE1$="B:SEPT"+RIGHT$(DATE$,2):MONTH$="SEPTEMBER":FILE$="B:SEPEXP"+RIGHT$(DATE$,2):RETURN
  586. 2935 FILE1$="B:OCTO"+RIGHT$(DATE$,2):MONTH$="OCTOBER":FILE$="B:OCTEXP"+RIGHT$(DATE$,2):RETURN
  587. 2940 FILE1$="B:NOVE"+RIGHT$(DATE$,2):MONTH$="NOVEMBER":FILE$="B:NOVEXP"+RIGHT$(DATE$,2):RETURN
  588. 2945 FILE1$="B:DECE"+RIGHT$(DATE$,2):MONTH$="DECEMBER":FILE$="B:DECEXP"+RIGHT$(DATE$,2):RETURN
  589. 2950 SALARY=SALARY+AMOUNT:RETURN
  590. 2955 UTILITIES=UTILITIES+AMOUNT:RETURN
  591. 2960 PHONE=PHONE+AMOUNT:RETURN
  592. 2965 PEST=PEST+AMOUNT:RETURN
  593. 2970 TRAVEL=TRAVEL+AMOUNT:RETURN
  594. 2975 NOTUSE=NOTUSE+AMOUNT:RETURN
  595. 2980 ACCOUNT=ACCOUNT+AMOUNT:RETURN
  596. 2985 MISC=MISC+AMOUNT:RETURN
  597. 2990 RETCHECK=RETCHECK+AMOUNT:RETURN
  598. 2995 PROPTAX=PROPTAX+AMOUNT:RETURN
  599. 3000 INTEXP=INTEXP+AMOUNT:RETURN
  600. 3005 DEP=DEP+AMOUNT:RETURN
  601. 3010 DUESUB=DUESUB+AMOUNT:RETURN
  602. 3015 POSTAGE=POSTAGE+AMOUNT:RETURN
  603. 3020 INS=INS+AMOUNT:RETURN
  604. 3025 MNT=MNT+AMOUNT:RETURN
  605. 3030 REPAIRS=REPAIRS+AMOUNT:RETURN
  606. 3035 PAYTAX=PAYTAX+AMOUNT:RETURN
  607. 3040 EQUIP=EQUIP+AMOUNT:RETURN
  608. 3045 TOTALL=TOTALL+AMOUNT:RETURN
  609. 3050 CLS:PRINT TAB(10);"1=SALARIES";TAB(30);"2=UTILITIES";TAB(60);"3=PHONE":PRINT TAB(10);"4=PEST CONTROL";TAB(30);"5=TRAVEL";TAB(60);"6=ADVERTISING":PRINT TAB(10);"7=LEGAL & ACCTNG";TAB(30);"8=MISC.";TAB(60);"9=RET. CHECKS"
  610. 3055 PRINT TAB(10);"10=ADVALOREM & GENERAL TAXES";TAB(30);"11=INTEREST EXPENSES";TAB(60);"12=DEPRECIATION":PRINT TAB(10);"13=DUES/SUBSCRIPTIONS";TAB(30);"14=POSTAGE";TAB(60);"15=INSURANCE":PRINT TAB(10);"16=MAINTENANCE/CLEANING";TAB(30);"17=REPAIRS";
  611. 3060 PRINT TAB(60);"18=SUPPLIES":PRINT TAB(10);"19=EQUIPMENT"
  612. 3065 INPUT "RE-ENTER TYPE OF EXPENSE";TYPE:GOTO 2535
  613. 3070 INPUT "RE-ENTER CHECK NUMBER";CHECKNO:GOTO 2535
  614. 3075 INPUT "RE-ENTER RECIPIENT";PAIDTO$:GOTO 2535
  615. 3080  INPUT "RE-ENTER DATE:";DD$:GOTO 2535
  616. 3085 INPUT "RE-ENTER AMOUNT:";AMOUNT:GOTO 2535
  617. 3090 LPRINT "SALARIES";TAB(40);USING "$##,###.##";AMOUNT:RETURN
  618. 3095 LPRINT "UTILITIES";TAB(40);USING "$##,###.##";AMOUNT:RETURN
  619. 3100 LPRINT "TELEPHONE";TAB(40);USING "$##,###.##";AMOUNT:RETURN
  620. 3105 LPRINT "PEST CONTROL";TAB(40);USING "$##,###.##";AMOUNT:RETURN
  621. 3110 LPRINT "TRAVEL";TAB(40);USING "$##,###.##";AMOUNT:RETURN
  622. 3115 LPRINT "ADVERTISING";TAB(40);USING "$##,###.##";AMOUNT:RETURN
  623. 3120 LPRINT "LEGAL & ACCOUNTING";TAB(40);USING "$##,###.##";AMOUNT:RETURN
  624. 3125 LPRINT "MISCELLANEOUS";TAB(40);USING "$##,###.##";AMOUNT:RETURN
  625. 3130 LPRINT "RETURNED CHECKS";TAB(40);USING "$##,###.##";AMOUNT:RETURN
  626. 3135 LPRINT "ADVALOREM & GENERAL TAXES";TAB(40);USING "$##,###.##";AMOUNT:RETURN
  627. 3140 LPRINT "INTEREST EXPENSES";TAB(40);USING "$##,###.##";AMOUNT:RETURN
  628. 3145 LPRINT "DEPRECIATION";TAB(40);USING "$##,###.##";AMOUNT:RETURN
  629. 3150 LPRINT "DUES/SUBSCRIPTIONS";TAB(40);USING "$##,###.##";AMOUNT:RETURN
  630. 3155 LPRINT "POSTAGE";TAB(40);USING "$##,###.##";AMOUNT:RETURN
  631. 3160 LPRINT "INSURANCE";TAB(40);USING "$##,###.##";AMOUNT:RETURN
  632. 3165 LPRINT "MAINTENANCE/CLEANING";TAB(40);USING "$##,###.##";AMOUNT:RETURN
  633. 3170 LPRINT "REPAIRS";TAB(40);USING "$##,###.##";AMOUNT:RETURN
  634. 3175 LPRINT "PAYROLL TAXES";TAB(40);USING "$##,###.##";AMOUNT:RETURN
  635. 3180 LPRINT "EQUIPMENT";TAB(40);USING "$##,###.##";AMOUNT:RETURN
  636. 3185 RETURN
  637. 3190 LPRINT TYPE;TAB(10);CHECKNO;TAB(20);PAIDTO$;TAB(40);DD$;TAB(60);AMOUNT
  638. 3195 RETURN
  639. 3200 LPRINT "FILE DUMP OF ";FILE$;" ON ";TODAY$
  640. 3205 LPRINT :LPRINT :LPRINT "TYPE";TAB(10);"CHECK #";TAB(20);"REC'D BY";TAB(40);"DATE";TAB(60);"AMOUNT"
  641. 3210 LPRINT STRING$(79,"="):RETURN
  642. 3215 RENT=RENT+PAID:RETURN
  643. 3220 SUPPORT=SUPPORT+PAID:RETURN
  644. 3225 INTEREST=INTEREST+PAID:RETURN
  645. 3230 PROP=PROP+PAID:RETURN
  646. 3235 VACATED=VACATED+PAID:RETURN
  647. 3240 LPRINT "            YEAR-TO-DATE OPERATING SUMMARY":LPRINT "            PREPARED ON ";TODAY$:LPRINT STRING$(79,"-"):RETURN
  648. 3245 LPRINT "OPERATING SUMMARY FOR ";MONTH$:LPRINT STRING$(LEN(MONTH$)+22,"-"):RETURN
  649. 3250 LPRINT
  650. 3255 LPRINT TAB(37);"INCOME":LPRINT STRING$(79,"=")
  651. 3260 LPRINT "INCOME TYPE";TAB(45);"AMOUNT"
  652. 3265 LPRINT STRING$(55,"-"):LPRINT "UNIT RENT";TAB(40);USING "$###,###.##";RENT:LPRINT "SUPPORT SALES";TAB(40);USING "$###,###.##";SUPPORT
  653. 3270 LPRINT "INTEREST INCOME";TAB(40);USING "$###,###.##";INTEREST:LPRINT "PROPERTY SALES";TAB(40);USING "$###,###.##";PROP:LPRINT "PAST DUE-VACATED";TAB(40);USING "$###,###.##";VACATED
  654. 3275 LPRINT STRING$(55,"="):LPRINT "TOTAL OF ALL INCOME:";USING "$###,###.##";RENT+SUPPORT+INTEREST+PROP+VACATED
  655. 3280 FOR A=1 TO 5:LPRINT:NEXT A
  656. 3285 LPRINT TAB(36);"EXPENSES":LPRINT STRING$(79,"=")
  657. 3290 LPRINT :LPRINT "EXPENSE ITEM";TAB(40);"AMOUNT":LPRINT STRING$(55,"-")
  658. 3295 LPRINT "1530";TAB(10);"EQUIPMENT";TAB(40);USING "$##,###.##";EQUIP:LPRINT "5010";TAB(10);"SALARIES";TAB(40);USING "$##,###.##";SALARY:LPRINT "5020";TAB(10);"REPAIRS";TAB(40);USING "$##,###.##";REPAIRS
  659. 3300 LPRINT "5030";TAB(10);"MAINTENANCE/CLEANING";TAB(40);USING "$##,###.##";MNT:LPRINT "5040";TAB(10);"PEST CONTROL";TAB(40);USING "$##,###.##";PEST:LPRINT "5050";TAB(10);"UTILITIES";TAB(40);USING "$##,###.##";UTILITIES
  660. 3305 LPRINT "5060";TAB(10);"TELEPHONE";TAB(40);USING "$##,###.##";PHONE:LPRINT "5070";TAB(10);"INSURANCE";TAB(40);USING "$##,###.##";INS:LPRINT "5080";TAB(10);"POSTAGE";TAB(40);USING "$##,###.##";POSTAGE
  661. 3310 LPRINT "5090";TAB(10);"PAYROLL TAXES";TAB(40);USING "$##,###.##";PAYTAX:LPRINT "5100";TAB(10);"ADVALOREM & GENERAL TAXES";TAB(40);USING "$##,###.##";PROPTAX:LPRINT "5110";TAB(10);"ACCOUNTING AND LEGAL";TAB(40);USING "$##,###.##";ACCOUNT
  662. 3315 LPRINT "5120";TAB(10);"DUES/SUBSCRIPTIONS";TAB(40);USING "$##,###.##";DUESUB
  663. 3320 LPRINT "5130";TAB(10);"RETURNED CHECKS";TAB(40);USING "$##,###.##";RETCHECK
  664. 3325 LPRINT "5140";TAB(10);"ADVERTISING";TAB(40);USING "$##,###.##";NOTUSE:LPRINT "5150";TAB(10);"TRAVEL";TAB(40);USING "$##,###.##";TRAVEL
  665. 3330 LPRINT "5160";TAB(10);"MISCELLANEOUS";TAB(40);USING "$##,###.##";MISC:LPRINT "5300";TAB(10);"DEPRECIATION";TAB(40);USING "$##,###.##";DEP:LPRINT "    ";TAB(10);"INTEREST EXPENSES";TAB(40);USING "$##,###.##";INTEXP
  666. 3335 LPRINT STRING$(55,"=")
  667. 3340 LPRINT "TOTAL OPERATING EXPENSES:";TAB(40);USING "$###,###.##";SALARY+UTILITIES+PHONE+PEST+TRAVEL+NOTUSE+ACCOUNT+MISC+RETCHECK+PROPTAX+INTEXP+DEP+DUESUB+POSTAGE+INS+MNT+PAYTAX+REPAIRS+EQUIP
  668. 3345 ALLTOT=(RENT+SUPPORT+INTEREST+PROP+VACATED)-(SALARY+UTILITIES+PHONE+PEST+TRAVEL+NOTUSE+ACCOUNT+MISC+RETCHECK+PROPTAX+INTEXP+DEP+DUESUB+POSTAGE+INS+MNT+PAYTAX+REPAIRS+EQUIP)
  669. 3350 LPRINT :LPRINT :LPRINT STRING$(55,"="):LPRINT "SUMMARY OF OPERATION:";USING "$###,###.##";ALLTOT;:IF ALLTOT<0 THEN LPRINT "   ***DEFICIT" ELSE LPRINT "     ***PROFIT"
  670. 3355 RETURN
  671. 3360 LST$="02/01/"+RIGHT$(STR$(VAL(RIGHT$(DATE$,2))+1)):RETURN
  672. 3365 LST$="03/01/"+RIGHT$(DATE$,2):RETURN
  673. 3370 LST$="04/01/"+RIGHT$(DATE$,2):RETURN
  674. 3375 LST$="05/01/"+RIGHT$(DATE$,2):RETURN
  675. 3380 LST$="06/01/"+RIGHT$(DATE$,2):RETURN
  676. 3385 LST$="07/01/"+RIGHT$(DATE$,2):RETURN
  677. 3390 LST$="08/01/"+RIGHT$(DATE$,2):RETURN
  678. 3395 LST$="09/01/"+RIGHT$(DATE$,2):RETURN
  679. 3400 LST$="10/01/"+RIGHT$(DATE$,2):RETURN
  680. 3405 LST$="11/01/"+RIGHT$(DATE$,2):RETURN
  681. 3410 LST$="12/01/"+RIGHT$(DATE$,2):RETURN
  682. 3415 LST$="01/01/"+STR$(VAL(RIGHT$(DATE$,2))+1):RETURN
  683. 3420 PRINT TAB(10);ADDR$:PRINT TAB(10);ADDR1$:PRINT TAB(10);CITY$;",";STA$;"  ";ZIP$:PRINT STRING$(79,"-")
  684. 3425 LPRINT TAB(10);ADDR$:LPRINT TAB(10);ADDR1$:LPRINT TAB(10);CITY$;",";STA$;"   ";ZIP$:LPRINT STRING$(79,"-")
  685. 3430 LC=LC+4:RETURN
  686. 3435 T1$=LEFT$(DUE$,2):T2$=MID$(DUE$,4,2):T3$=RIGHT$(DUE$,2)
  687. 3440 FOR CT=1 TO T1
  688. 3445 T1$=STR$(VAL(LEFT$(T1$,2))+1)
  689. 3450 IF T1$=" 13" THEN T3$=STR$(VAL(RIGHT$(T3$,2))+1):IF T1$=" 13" THEN T1$="01":IF T1$="01" THEN GOTO 3520
  690. 3455 IF T1$=" 9" THEN T1$="09"
  691. 3460 IF T1$=" 8" THEN T1$="08"
  692. 3465 IF T1$=" 7" THEN T1$="07"
  693. 3470 IF T1$=" 6" THEN T1$="06"
  694. 3475 IF T1$=" 5" THEN T1$="05"
  695. 3480 IF T1$=" 4" THEN T1$="04"
  696. 3485 IF T1$=" 3" THEN T1$="03"
  697. 3490 IF T1$=" 2" THEN T1$="02"
  698. 3495 IF T1$=" 10" THEN T1$="10"
  699. 3500 IF T1$=" 12" THEN T1$="12"
  700. 3505 IF T1$=" 11" THEN T1$="11"
  701. 3510 NEXT CT
  702. 3515 RETURN
  703. 3520 IF T3$=" 86" THEN T3$="86"
  704. 3525 IF T3$=" 87" THEN T3$="87"
  705. 3530 IF T3$=" 88" THEN T3$="88"
  706. 3535 IF T3$=" 89" THEN T3$="89"
  707. 3540 IF T3$=" 90" THEN T3$="90"
  708. 3545 IF T3$=" 91" THEN T3$="91"
  709. 3550 IF T3$=" 92" THEN T3$="92"
  710. 3555 IF T3$=" 93" THEN T3$="93"
  711. 3560 IF T3$=" 94" THEN T3$="94"
  712. 3565 IF T3$=" 95" THEN T3$="95"
  713. 3570 IF T3$=" 96" THEN T3$="96"
  714. 3575 IF T3$=" 97" THEN T3$="97"
  715. 3580 IF T3$=" 98" THEN T3$="98"
  716. 3585 IF T3$=" 99" THEN T3$="99"
  717. 3590 GOTO 3455
  718. 3595 DT=VAL(LEFT$(DATE$,2)):ON DT GOSUB 2890,2895,2900,2905,2910,2915,2920,2925,2930,2935,2940,2945
  719. 3600 DS=DT-1:IF DS=0 THEN DS=12
  720. 3605 BEEP:BEEP:PRINT "MAKE CERTAIN THE REPORTS/EXPENSES/PAYMENTS DATA FILE IS IN DRIVE B":INPUT "STRIKE ENTER WHEN READY";X
  721. 3610 PRINT "OPENING ";FILE1$
  722. 3615 OPEN FILE1$ FOR INPUT AS #1
  723. 3620 WHILE NOT EOF(1)
  724. 3625 INPUT #1,DAY$:INPUT #1,PAID:INPUT #1,SOURCE:INPUT #1,PB
  725. 3630 IF DAY$=TODAY$ THEN RE=RE+PAID
  726. 3635 RTD=RTD+PAID
  727. 3640 WEND
  728. 3645 CLOSE
  729. 3650 OPEN "B:CHEK" FOR INPUT AS #1:INPUT #1,CHEK:CLOSE
  730. 3655 OPEN "B:SAV" FOR INPUT AS #1:INPUT #1,SAV:CLOSE
  731. 3660 IF DT<10 THEN FILE2$="B:DALY"+RIGHT$(STR$(DT),1)+RIGHT$(DATE$,2) ELSE FILE2$="B:DALY"+RIGHT$(STR$(DT),2)+RIGHT$(DATE$,2)
  732. 3665 OPEN FILE2$ FOR APPEND AS #1
  733. 3670 PRINT #1,RE
  734. 3675 PRINT #1,RTD
  735. 3680 PRINT #1,UR
  736. 3685 PRINT #1,VACANT
  737. 3690 PRINT #1,DELINQUENT
  738. 3695 PRINT #1,DR:PRINT #1,TODAY$
  739. 3700 PRINT #1,CHEK:PRINT #1,SAV
  740. 3705 CLOSE
  741. 3710 ON DS GOSUB 4000,4005,4010,4015,4020,4025,4030,4035,4040,4045,4050,3995
  742. 3715 OPEN FILE2$ FOR INPUT AS #1
  743. 3720 WHILE NOT EOF(1)
  744. 3725 INPUT #1,RE1:INPUT #1,RTD1:INPUT #1,UR1:INPUT #1,VACANT1:INPUT #1,DELINQUENT1:INPUT #1,DR1:INPUT #1,DT$:INPUT #1,CHEK1:INPUT #1,SAV1
  745. 3730 IF MID$(DT$,4,2)=>MID$(DATE$,4,2) THEN 3750
  746. 3735 WEND
  747. 3740 IF MID$(DT$,4,2)=MID$(DATE$,4,2) THEN 3750 ELSE 3745
  748. 3745 RE1=0:RTD1=0:UR1=0:VACANT1=0:DELINQUENT1=0:DR1=0
  749. 3750 CLOSE
  750. 3755 ON DT GOSUB 4060,4065,4070,4075,4080,4085,4090,4095,4100,4105,4110,4115
  751. 3760 INPUT "MAKE CERTAIN LAST YEAR'S DATA DISK IS IN SYSTEM AND STRIKE ENTER";X
  752. 3765 OPEN FILE2$ FOR INPUT AS #1
  753. 3770 WHILE NOT EOF(1)
  754. 3775 INPUT #1,RE2:INPUT #1,RTD2:INPUT #1,UR2:INPUT #1,VACANT2:INPUT #1,DELINQUENT2:INPUT #1,DR2:INPUT #1,DT2$:INPUT #1,CHEK2:INPUT #1,SAV2
  755. 3780 IF MID$(DT2$,4,2)=>MID$(DATE$,4,2) THEN 3800
  756. 3785 WEND
  757. 3790 IF MID$(DT$,4,2)=MID$(DATE$,4,2) THEN 3800 ELSE 3795
  758. 3795 RE2=0:RTD2=0:UR2=0:VACANT2=0:DELINQUENT2=0:DR2=0
  759. 3800 CLOSE
  760. 3805 LPRINT CHR$(12):CLS
  761. 3810 PRINT TAB(20);"DAILY PROPERTY  SUMMARY":PRINT TAB(20);"-------------------------"
  762. 3815 PRINT:PRINT:PRINT TAB(28);DATE$:PRINT :PRINT :PRINT STRING$(79,"="):PRINT TAB(25);"TODAY";TAB(45);"LAST MONTH";TAB(65);"LAST YEAR"
  763. 3820 LPRINT STRING$(79,"=")
  764. 3825 PRINT:PRINT "RECEIPTS";TAB(25);USING "$##,###.##";RE;:PRINT TAB(45);USING "$##,###.##";RE1;:PRINT TAB(65);USING "$##,###.##";RE2
  765. 3830 PRINT :PRINT STRING$(79,"-")
  766. 3835 PRINT STRING$(79,"-"):PRINT:PRINT "RECEIVABLES":PRINT "TO DATE";:PRINT TAB(25);USING "$##,###.##";RTD:PRINT TAB(45);USING "$##,###.##";RTD1;:PRINT TAB(65);USING "$##,###.##";RTD2
  767. 3840 PRINT :PRINT STRING$(79,"-")
  768. 3845 PRINT:PRINT "UNITS RENTED";TAB(25);UR;TAB(45);UR1;TAB(65);UR2
  769. 3850 PRINT :PRINT STRING$(79,"-")
  770. 3855 PRINT:PRINT "VACANCIES";TAB(25);VACANT;TAB(45);VACANT1;TAB(65);VACANT2
  771. 3860 PRINT :PRINT STRING$(79,"-")
  772. 3865 PRINT:PRINT "DELINQUENT":PRINT "UNITS";TAB(25);DELINQUENT;TAB(45);DELINQUENT1;TAB(65);DELINQUENT2
  773. 3870 PRINT :PRINT STRING$(79,"-")
  774. 3875 PRINT:PRINT "DELINQUENT":PRINT "RECEIVABLES";:PRINT TAB(25);USING "$##,###.##";DR:PRINT TAB(45);USING "$##,###.##";DR1;:PRINT TAB(65);USING "$##,###.##";DR2
  775. 3880 PRINT :PRINT STRING$(79,"-")
  776. 3885 PRINT :PRINT "F.C.N.B.":PRINT "CHECKING";:PRINT TAB(25);USING "$##,###.##";CHEK;:PRINT TAB(45);USING "$##,###.##";CHEK1;:PRINT TAB(65);USING "$##,###.##";CHEK2
  777. 3890 PRINT :PRINT STRING$(79,"-")
  778. 3895 PRINT :PRINT "F.C.N.B.":PRINT "SAVINGS";:PRINT TAB(25);USING "$##,###.##";SAV;:PRINT TAB(45);USING "$##,###.##";SAV1;:PRINT TAB(65);USING "$##,###.##";SAV2
  779. 3900 PRINT :PRINT STRING$(79,"-")
  780. 3905 LPRINT TAB(20);"DAILY WAREHOUSE SUMMARY":LPRINT TAB(20);"-------------------------"
  781. 3910 LPRINT:LPRINT:LPRINT TAB(28);DATE$:LPRINT :LPRINT :LPRINT STRING$(79,"="):LPRINT TAB(25);"TODAY";TAB(45);"LAST MONTH";TAB(65);"LAST YEAR"
  782. 3915 LPRINT STRING$(79,"=")
  783. 3920 LPRINT:LPRINT "RECEIPTS";TAB(25);USING "$##,###.##";RE;:LPRINT TAB(45);USING "$##,###.##";RE1;:LPRINT TAB(65);USING "$##,###.##";RE2
  784. 3925 LPRINT STRING$(79,"-"):LPRINT:LPRINT "RECEIVABLES":LPRINT "TO DATE";:LPRINT TAB(25);USING "$##,###.##";RTD:LPRINT TAB(45);USING "$##,###.##";RTD1;:LPRINT TAB(65);USING "$##,###.##";RTD2
  785. 3930 LPRINT :LPRINT STRING$(79,"-")
  786. 3935 LPRINT:LPRINT "UNITS RENTED";TAB(25);UR;TAB(45);UR1;TAB(65);UR2
  787. 3940 LPRINT :LPRINT STRING$(79,"-")
  788. 3945 LPRINT:LPRINT "VACANCIES";TAB(25);VACANT;TAB(45);VACANT1;TAB(65);VACANT2
  789. 3950 LPRINT :LPRINT STRING$(79,"-")
  790. 3955 LPRINT:LPRINT "DELINQUENT":LPRINT "UNITS";TAB(25);DELINQUENT;TAB(45);DELINQUENT1;TAB(65);DELINQUENT2
  791. 3960 LPRINT :LPRINT STRING$(79,"-")
  792. 3965 LPRINT:LPRINT "DELINQUENT":LPRINT "RECEIVABLES";:LPRINT TAB(25);USING "$##,###.##";DR:LPRINT TAB(45);USING "$##,###.##";DR1;:LPRINT TAB(65);USING "$##,###.##";DR2
  793. 3970 LPRINT :LPRINT STRING$(79,"-")
  794. 3975 LPRINT :LPRINT "F.C.N.B.":LPRINT "CHECKING";:LPRINT TAB(25);USING "$##,###.##";CHEK;:LPRINT TAB(45);USING "$##,###.##";CHEK1;:LPRINT TAB(65);USING "$##,###.##";CHEK2
  795. 3980 LPRINT :LPRINT STRING$(79,"-")
  796. 3985 LPRINT :LPRINT "F.C.N.B.":LPRINT "SAVINGS";:LPRINT TAB(25);USING "$##,###.##";SAV;:LPRINT TAB(45);USING "$##,###.##";SAV1;:LPRINT TAB(65);USING "$##,###.##";SAV2
  797. 3990 LPRINT :LPRINT STRING$(79,"-"):RETURN
  798. 3995 FILE2$="B:DALY12"+RIGHT$(STR$(VAL(RIGHT$(DATE$,2))-1),2):RETURN
  799. 4000 FILE2$="B:DALY1"+RIGHT$(DATE$,2):RETURN
  800. 4005 FILE2$="B:DALY2"+RIGHT$(DATE$,2):RETURN
  801. 4010 FILE2$="B:DALY3"+RIGHT$(DATE$,2):RETURN
  802. 4015 FILE2$="B:DALY4"+RIGHT$(DATE$,2):RETURN
  803. 4020 FILE2$="B:DALY5"+RIGHT$(DATE$,2):RETURN
  804. 4025 FILE2$="B:DALY6"+RIGHT$(DATE$,2):RETURN
  805. 4030 FILE2$="B:DALY7"+RIGHT$(DATE$,2):RETURN
  806. 4035 FILE2$="B:DALY8"+RIGHT$(DATE$,2):RETURN
  807. 4040 FILE2$="B:DALY9"+RIGHT$(DATE$,2):RETURN
  808. 4045 FILE2$="B:DALY10"+RIGHT$(DATE$,2):RETURN
  809. 4050 FILE2$="B:DALY11"+RIGHT$(DATE$,2):RETURN
  810. 4055 FILE2$="B:DALY12"+RIGHT$(DATE$,2):RETURN
  811. 4060 FILE2$="B:DALY1"+RIGHT$(STR$(VAL(RIGHT$(DATE$,2))-1),2):RETURN
  812. 4065 FILE2$="B:DALY2"+RIGHT$(STR$(VAL(RIGHT$(DATE$,2))-1),2):RETURN
  813. 4070 FILE2$="B:DALY3"+RIGHT$(STR$(VAL(RIGHT$(DATE$,2))-1),2):RETURN
  814. 4075 FILE2$="B:DALY4"+RIGHT$(STR$(VAL(RIGHT$(DATE$,2))-1),2):RETURN
  815. 4080 FILE2$="B:DALY5"+RIGHT$(STR$(VAL(RIGHT$(DATE$,2))-1),2):RETURN
  816. 4085 FILE2$="B:DALY6"+RIGHT$(STR$(VAL(RIGHT$(DATE$,2))-1),2):RETURN
  817. 4090 FILE2$="B:DALY7"+RIGHT$(STR$(VAL(RIGHT$(DATE$,2))-1),2):RETURN
  818. 4095 FILE2$="B:DALY8"+RIGHT$(STR$(VAL(RIGHT$(DATE$,2))-1),2):RETURN
  819. 4100 FILE2$="B:DALY9"+RIGHT$(STR$(VAL(RIGHT$(DATE$,2))-1),2):RETURN
  820. 4105 FILE2$="B:DALY10"+RIGHT$(STR$(VAL(RIGHT$(DATE$,2))-1),2):RETURN
  821. 4110 FILE2$="B:DALY11"+RIGHT$(STR$(VAL(RIGHT$(DATE$,2))-1),2):RETURN
  822. 4115 FILE2$="B:DALY12"+RIGHT$(STR$(VAL(RIGHT$(DATE$,2))-1),2):RETURN
  823. 4120 INPUT "***DUMP FILES***   FOR WHICH MONTH'S INCOME (1-12)";MM:ON MM GOSUB 2890,2895,2900,2905,2910,2915,2920,2925,2930,2935,2940,2945
  824. 4125 LPRINT "DUMP OF ";FILE1$;" ON ";TODAY$:LPRINT STRING$(79,"="):LPRINT "DATE";TAB(15);"PAYMENT AMT";TAB(30);"SOURCE";TAB(45);"PREVIOUS BALANCE":LPRINT STRING$(79,"-")
  825. 4130 OPEN FILE1$ FOR INPUT AS #1
  826. 4135 WHILE NOT EOF(1)
  827. 4140 INPUT #1,DAY$:INPUT #1,PAID:INPUT #1,SOURCE:INPUT #1,PB
  828. 4145 LPRINT DAY$;TAB(15);USING "$####.##";PAID;:LPRINT TAB(30);SOURCE;TAB(45);USING "$####.##";PB
  829. 4150 COUNT=COUNT+1
  830. 4155 WEND
  831. 4160 LPRINT STRING$(79,"-"):LPRINT "TOTAL RECORDS IN FILE:";COUNT:COUNT=0
  832. 4165 RETURN
  833. 4170 INPUT "BE SURE EXPENSE/INCOME DATA DISK IS IN DRIVE B.  STRIKE ENTER";X
  834. 4175 CLS:OPEN "B:CHEK" FOR INPUT AS 1:INPUT #1,CHEK:CLOSE
  835. 4180 PRINT "CURRENT AMOUNT SHOWN IN CHECKING ACCOUNT IS:";USING "$###,###.##";CHEK
  836. 4185 INPUT "IF AMOUNT IS CORRECT STRIKE ENTER ELSE KEY CORRECT FIGURE";CF:IF CF>0 THEN CHEK=CF
  837. 4190 OPEN "B:CHEK" FOR OUTPUT AS #1:PRINT #1,CHEK:CLOSE:RETURN
  838. 4195 INPUT "BE SURE EXPENSE/INCOME DATA DISK IS IN DRIVE B.  STRIKE ENTER";X
  839. 4200 CLS:OPEN "B:SAV" FOR INPUT AS #1:INPUT #1,SAV:CLOSE
  840. 4205 PRINT "CURRENT AMOUNT SHOWN IN SAVINGS ACCOUNT IS:";USING "$###,###.##";SAV
  841. 4210 INPUT "IF AMOUNT IS CORRECT STRIKE ENTER ELSE KEY PROPER AMOUNT. TO ZERO KEY 99999";CF:IF CF>0 THEN SAV=CF
  842. 4215 OPEN "B:SAV" FOR OUTPUT AS #1:IF SAV=99999! THEN PRINT #1,0: IF SAV<99999! THEN PRINT #1,SAV:CLOSE:RETURN
  843. 4220 IF SAV<99999! THEN PRINT #1, SAV
  844. 4225 CLOSE:RETURN
  845. 4230 COUNT=0:CLS:INPUT "*** DUMP DAILY REPORT FILE--FOR WHICH MONTH (1-12)";MONTH:ON MONTH GOSUB 4000,4005,4010,4015,4020,4025,4030,4035,4040,4045,4050,4055
  846. 4235 LPRINT CHR$(12):LPRINT TAB(31);"OCCU";TAB(37);"VAC";TAB(42);"DELI";TAB(48);"DEL.";TAB(59);"CHECK.";TAB(70);"SAVINGS":LPRINT "DATE";TAB(11);"RECEIPTS";TAB(21);"REC.T.D.";TAB(31);"PIED";TAB(37);"ANT";TAB(42);"QUENT";TAB(48);"REC.";TAB(59);"ACCT";
  847. 4240 LPRINT TAB(70);"ACCT":LPRINT STRING$(79,"-")
  848. 4245 OPEN FILE2$ FOR INPUT AS #1
  849. 4250 WHILE NOT EOF(1)
  850. 4255 INPUT #1,RE:INPUT #1,RTD:INPUT #1,UR:INPUT #1,VACANT:INPUT #1,DELINQUENT:INPUT #1,DR:INPUT #1,TODA$:INPUT #1,CHEK:INPUT #1,SAV
  851. 4260 LPRINT TODA$;TAB(11);USING "#,###.##";RE;:LPRINT TAB(21);USING "##,###.##";RTD;:LPRINT TAB(32);UR;TAB(37);VACANT;TAB(42);DELINQUENT;TAB(48);USING "##,###.##";DR;:LPRINT TAB(59);USING "##,###.##.";CHEK;:LPRINT TAB(70);USING "##,###.##";SAV
  852. 4265 COUNT=COUNT+1
  853. 4270 WEND
  854. 4275 LPRINT STRING$(79,"-"):LPRINT "RECORDS IN FILE:";COUNT:LPRINT CHR$(12)
  855. 4280 RETURN
  856. 4285 CLS: PRINT "CORRECT RENTAL PAYMENT":INPUT "IN WHICH MONTH WAS THE PAYMENT MADE (1-12)";MONTH:ON MONTH GOSUB 2890,2895,2900,2905,2910,2915,2920,2925,2930,2935,2940,2945
  857. 4290 INPUT "WHAT DATE WAS THE PAYMENT MADE";CMD$:INPUT "WHAT WAS THE PAYMENT SOURCE";CMS
  858. 4295 OPEN FILE1$ FOR INPUT AS 1:OPEN "B:WORK" FOR OUTPUT AS 2
  859. 4300 WHILE NOT EOF(1)
  860. 4305 INPUT #1,DAY$:INPUT #1,PAID:INPUT #1,SOURCE:INPUT #1,PB
  861. 4310 IF CMS=SOURCE AND CMD$=DAY$ THEN GOSUB 4330
  862. 4315 PRINT #2,DAY$:PRINT #2,PAID:PRINT #2,SOURCE:PRINT #2,PB
  863. 4320 WEND
  864. 4325 CLOSE:KILL FILE1$:NAME "B:WORK" AS FILE1$:RETURN
  865. 4330 PRINT "1. DATE:";DAY$;TAB(40);"2.AMOUNT PAID:";USING "$####.##";PAID:PRINT "3. SOURCE:"; SOURCE: PRINT "(1-208=RENT  999=SUPPORT SALES  998=INTEREST INCOME":PRINT "997=PROPERTY SALES   995=PAST DUE-VACATED)"
  866. 4335 PRINT:PRINT "4. PREVIOUS BALANCE:";PB;TAB(40);"5. RECORD CORRECT"
  867. 4340 INPUT "YOUR CHOICE TO CHANGE IS:";CHANGE
  868. 4345 ON CHANGE GOTO 4355,4360,4365,4370,4375
  869. 4350 GOTO 4330
  870. 4355 INPUT "CORRECT DATE IS:";DAY$:GOTO 4330
  871. 4360 INPUT "CORRECT AMOUNT IS:";PAID:GOTO 4330
  872. 4365 INPUT "CORRECT SOURCE # IS:";SOURCE:GOTO 4330
  873. 4370 INPUT "CORRECT PREVIOUS BALANCE:";PB:GOTO 4330
  874. 4375 RETURN
  875. 4380 'ROUTINE EDITS DAILY REPORT FILE
  876. 4385 CLS:INPUT "*** EDIT DAILY REPORT FILE   FOR WHICH MONTH (1-12)";MONTH:INPUT "ENTER FULL DATE FOR THE RECORD";CM$
  877. 4390 ON MONTH GOSUB 4000,4005,4010,4015,4020,4025,4030,4035,4040,4040,4045,4050,4055
  878. 4395 OPEN FILE2$ FOR INPUT AS #1:OPEN "B:WORK" FOR OUTPUT AS #2
  879. 4400 WHILE NOT EOF(1)
  880. 4405 INPUT #1,RE:INPUT #1,RTD:INPUT #1,UR:INPUT #1,VACANT:INPUT #1,DELINQUENT:INPUT #1,DR:INPUT #1,TD$:INPUT #1,CHEK:INPUT #1,SAV
  881. 4410 IF CM$=TD$ THEN GOSUB 4435
  882. 4415 IF TD$="" THEN 4425
  883. 4420 PRINT #2,RE:PRINT #2,RTD:PRINT #2,UR:PRINT #2,VACANT:PRINT #2,DELINQUENT:PRINT #2,DR:PRINT #2,TD$:PRINT #2,CHEK:PRINT #2,SAV
  884. 4425 WEND
  885. 4430 CLOSE:KILL FILE2$:NAME "B:WORK" AS FILE2$:RETURN
  886. 4435 CLS:PRINT "YOUR CHOICE IS:":PRINT "1.DAY'S RECEIPTS:";TAB(30);USING "$####.##";RE:PRINT "2. RECEIPTS TO DATE:";TAB(30);USING "$##,###.##";RTD
  887. 4440 PRINT "3. UNITS RENTED:";TAB(30);UR:PRINT "4. VACANT UNITS:";TAB(30);VACANT:PRINT "5. DELINQUENT UNITS:";TAB(30);DELINQUENT:PRINT "6. DELINQUENT RECEIVABLES:";TAB(30);USING "$##,###.##";DR
  888. 4445 PRINT "7.DATE:";TAB(30);TD$:PRINT "8. CHECKING BALANCE:";TAB(30);USING "$##,###.##";CHEK:PRINT "9. SAVINGS BALANCE:";TAB(30);USING "$##,###.##";SAV
  889. 4450 PRINT "10. RECORD CORRECT":PRINT "11. DELETE THIS RECORD":PRINT :INPUT "YOUR CHOICE IS:";CHOICE:ON CHOICE GOTO 4465,4470,4475,4480,4485,4490,4495,4500,4505,4460,4510
  890. 4455 GOTO 4435
  891. 4460 RETURN
  892. 4465 INPUT "RECEIPTS:";RE:GOTO 4435
  893. 4470 INPUT "RECEIPTS TO DATE:";RTD:GOTO 4435
  894. 4475 INPUT "UNITS RENTED:";UR:GOTO 4435
  895. 4480 INPUT "VACANCIES:";VACANT:GOTO 4435
  896. 4485 INPUT "DELINQUENT UNITS:";DELINQUENT:GOTO 4435
  897. 4490 INPUT "DELINQUENT RECEIVABLES:";DR:GOTO 4435
  898. 4495 INPUT "DATE:";TD$:GOTO 4435
  899. 4500 INPUT "CHECKING BALANCE:";CHEK:GOTO 4435
  900. 4505 INPUT "SAVINGS BALANCE:";SAV:GOTO 4435
  901. 4510 RE=0:RTD=0:UR=0:VACANT=0:DELINQUENT=0:DR=0:TD$="":CHEK=0:SAV=0:GOTO 4460
  902. 4515 INPUT "CREATE NAME AND ADDRESS FILES (IF STARTING UP FOR FIRST TIME ANSWER Y-(Y/N)";ASK$
  903. 4520 IF LEFT$(ASK$,1)="Y" OR LEFT$(ASK$,1)="y" THEN GOSUB 315
  904. 4525 PRINT "CREATE OTHER FILES FOR COMING YEAR":FILES "B:":PRINT "IF THE AMOUNT OF SPACE INDICATED AT THE BOTTOM ":PRINT "OF THE DIRECTORY LISTING ABOVE IS LESS THAN 100,000 BYTES"
  905. 4530 PRINT "PLACE A FRESHLY FORMATTED, PROPERLY LABELLED DISK IN DRIVE B...":PRINT "HIT `P' TO PROCEED, ANY OTHER KEY ABORTS PROCEDURE"
  906. 4535 A$=INKEY$:IF A$="" THEN 4535
  907. 4540 IF A$="p" OR A$="P" THEN 4545 ELSE 4580
  908. 4545 INPUT "FOR WHAT CALENDAR YEAR (19XX) WILL FILES BE CREATED";YEAR$:DATE$=LEFT$(DATE$,6)+YEAR$:OPEN "B:CHEK" FOR OUTPUT AS #1:PRINT #1,1:CLOSE
  909. 4550 FOR A=1 TO 12
  910. 4555 ON A GOSUB 2890,2895,2900,2905,2910,2915,2920,2925,2930,2935,2940,2945
  911. 4560 OPEN FILE$ FOR OUTPUT AS #1:OPEN FILE1$ FOR OUTPUT AS #2:FILE2$="B:DALY"+RIGHT$(STR$(A),1)+RIGHT$(YEAR$,2):OPEN FILE2$ FOR OUTPUT AS #3:CLOSE
  912. 4565 NEXT A
  913. 4570 PRINT "BE SURE TO COPY ALSO TO THIS DISK THESE FILES: B:DECEXX, B:DECEXPXX AND":PRINT "B:DALY12XX...WHERE `XX' IS THE CURRENT YEAR NUMBER.  ":PRINT "THESE FILES MUST BE COPIED BEFORE DOING ANY DAILY REPORTS AFTER DEC. 31 OF THE CURRENT YEAR"
  914. 4575 DATE$=TODAY$:PRINT :PRINT :INPUT "STRIKE ENTER KEY TO CONTINUE";X
  915. 4580 RETURN
  916. 4585 ' SUBROUTINE SETS DATES FOR SEARCHES
  917. 4590 CM1$=RIGHT$(CM$,2)+"/"+LEFT$(CM$,5)
  918. 4595 DUE1$=RIGHT$(DUE$,2)+"/"+LEFT$(DUE$,5):RETURN
  919. 4600 LPRINT STRING$(50,"=")
  920. 4605 LPRINT "ACCT";TAB(10);"ITEM";TAB(40);"AMOUNT":LPRINT STRING$(50,"=")
  921. 4610 LPRINT "1530";TAB(10);"EQUIPMENT";TAB(40);USING "$##,###.##";EQUIP:LPRINT "5010";TAB(10);"SALARIES";TAB(40);USING "$##,###.##";SALARY:LPRINT "5020";TAB(10);"REPAIRS";TAB(40);USING "$##,###.##";REPAIRS
  922. 4615 LPRINT "5030";TAB(10);"MAINTENANCE/CLEANING";TAB(40);USING "$##,###.##";MNT:LPRINT "5040";TAB(10);"PEST CONTROL";TAB(40);USING "$##,###.##";PEST:LPRINT "5050";TAB(10);"UTILITIES";TAB(40);USING "$##,###.##";UTILITIES
  923. 4620 LPRINT "5060";TAB(10);"TELEPHONE";TAB(40);USING "$##,###.##";PHONE:LPRINT "5070";TAB(10);"INSURANCE";TAB(40);USING "$##,###.##";INS:LPRINT "5080";TAB(10);"POSTAGE";TAB(40);USING "$##,###.##";POSTAGE
  924. 4625 LPRINT "5090";TAB(10);"PAYROLL TAXES";TAB(40);USING "$##,###.##";PAYTAX:LPRINT "5100";TAB(10);"ADVALOREM & GENERAL TAXES";TAB(40);USING "$##,###.##";PROPTAX:LPRINT "5110";TAB(10);"ACCOUNTING AND LEGAL";TAB(40);USING "$##,###.##";ACCOUNT
  925. 4630 LPRINT "5120";TAB(10);"DUES/SUBSCRIPTIONS";TAB(40);USING "$##,###.##";DUESUB
  926. 4635 LPRINT "5130";TAB(10);"RETURNED CHECKS";TAB(40);USING "$##,###.##";RETCHECK
  927. 4640 LPRINT "5140";TAB(10);"ADVERTISING";TAB(40);USING "$##,###.##";NOTUSE:LPRINT "5150";TAB(10);"TRAVEL";TAB(40);USING "$##,###.##";TRAVEL
  928. 4645 LPRINT "5160";TAB(10);"MISCELLANEOUS";TAB(40);USING "$##,###.##";MISC:LPRINT "5300";TAB(10);"DEPRECIATION";TAB(40);USING "$##,###.##";DEP:LPRINT "    ";TAB(10);"INTEREST EXPENSES";TAB(40);USING "$##,###.##";INTEXP
  929. 4650 LPRINT STRING$(50,"="):LPRINT "TOTAL EXPENSES FOR REPORTING PERIOD:   ";USING "$###,###.##";TOTALL:INPUT "STRIKE ENTER TO CONTINUE";X
  930. 4655 SALARY=0:UTILITIES=0:PHONE=0:PEST=0:TRAVEL=0:NOTUSE=0:ACCOUNT=0:MISC=0:RETCHECK=0:PROPTAX=0:INTEXP=0:ADV=0:DEP=0:DUESUB=0:POSTAGE=0:INS=0:MNT=0:REPAIRS=0:PAYTAX=0:EQUIP=0:TOTALL=0:RETURN
  931. 6500 CLS
  932. 6510 PRINT "This program was prepared for use as a shareware product."
  933. 6520 PRINT "Copy and distribute it as freely as you like, to whomever"
  934. 6530 PRINT "you like.  If you find it of any use, please send a check or"
  935. 6540 PRINT "money order for $25.00 to:":PRINT
  936. 6550 PRINT "          Jess Hillman"
  937. 6560 PRINT "          P.O. Box 642"
  938. 6570 PRINT "          Columbus, Ms 39703":PRINT
  939. 6590 PRINT "Please bear in mind this is a shortened version of a longer"
  940. 6600 PRINT "program.  If you would like to have the lengthier, more "
  941. 6610 PRINT "complete version, which has been running successfully at my"
  942. 6620 PRINT "oldest site for over three years now, please make the check "
  943. 6630 PRINT "or money order out to me for $50.00.  You will receive the "
  944. 6640 PRINT "latest version."
  945. 6650 PRINT :PRINT :PRINT "Thank you for supporting this product."
  946. 6660 PRINT :PRINT :INPUT "Strike the Enter key";X
  947. 6670 RETURN
  948.